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ABSTRACT 

A  debugger  has  been  designed  and  implemented  to  debug  MC68020  assembly 
language  programs  which  run  on  an  MC68020-based  Educational  Computer  Board 
(ECB).  The  debugger  consists  of  two  physically  separate  modules  and  runs  on  both  a 
Macintosh  and  on  the  ECB.  The  debugger  and  the  ECB  communicate  via  an  RS232 
interface  at  a  Baud  rate  of  9600. 

In  addition  to  basic  debugger  commands  for  the  MC68020,  the  debugger  also 
supports  commands  which  enable  the  user  to  examine  or  modify  the  MC6888 1 
Coprocessor's  registers.  An  important  feature  is  that  it  is  user-friendly.  It  utilizes 
pull-down  menus,  where  the  user  can  select  and  execute  the  desired  command  simply 
by  clicking  the  mouse.  This  debugger  and  a  LightspeedC  compiler  provides  the  user 
with  an  integrated  environment,  where  he  or  she  can  edit,  assemble  and  debug 
assembly  language  programs. 

Applications  of  this  software  tool,  and  the  accompanying  ECB,  can  be  used  for 
both  research  and  teaching.  For  example,  it  can  replace  the  current  system  that  supports 
the  Naval  Postgraduate  School  course  EC2800. 
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I.    INTRODUCTION 

There  has  been  a  very  rapid  growth  in  the  use  of  microprocessors.  With  the 
advent  of  physically  smaller  but  functionally  more  capable  and  faster  microprocessors, 
microprocessor  systems,  besides  being  cheap  and  practical,  are  becoming  almost 
equivalent  to  the  capability  and  speed  of  main-frame  computers  of  the  past. 
Considering  all  these  reasons,  a  complete  and  thorough  understanding  of  the  capabilities 
of  microprocessors  and  microcomputers  is  essential.  A  microprocessor  software 
development  system  is  a  necessary  part  of  this. 

The  debugger  created  in  this  thesis  study  is  software  part  of  a  complete 
MC68020  microprocessor  development  system.  The  hardware  part  is  the  MC68020 
based  Educational  Computer  Board  (ECB),  which  is  developed  by  Tugcu[1989].  In  fact, 
the  development  of  the  software  and  the  hardware  was  done  simultaneously. 

A  debugger  for  the  MC68000  (called  Tutor  Monitor  [Ref.  1]),  was  created  by  the 
Motorola  Company  for  training  and  operational  use.  As  far  as  the  execution  of  a  user 
program  is  concerned,  this  debugger  is  capable  of  doing  the  same  things  which  the 
Tutor  Monitor  can  do.  To  be  more  accurate,  the  collection  of  commands  provided  in 
this  debugger  is  a  proper  subset  of  the  commands  present  in  the  Motorola's  Tutor 
Monitor.  Since  the  announcement  of  the  Motorola's  ECB,  ten  years  ago,  there  have 
been  significant  improvements  in  microprocessor  speed,  instruction  sets,  etc.  Also,  the 
utilization  of  coprocessors  has  added  more  precision  in  scientific  calculations.  This 
debugger,  which  was  designed  to  be  used  in  debugging  MC68000-MC68020  assembly 
language  programs  (for  MC68020  instructions,  see  Ref.  2),  is  also  capable  of  handling 
MC6888 1    Coprocessor-related   instructions    (for   MC6888 1    instructions,    see   Ref.    3), 
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thereby  giving  the  user  higher  precision  debug  capabilities.  This  feature  is  not  present 
in  Tutor  Monitor. 

Part  of  this  debugger,  the  monitor,  runs  on  the  ECB  and  carries  out  the 
commands  sent  by  the  main  program.  The  monitor  program  also  includes 
communication  routines.  With  the  use  of  these  two  routines,  serial  communication  is 
done  in  software. 

One  of  the  advantages  of  this  system  is  that  it  does  not  require  an  extra  dumb 
terminal,  which  is  needed  for  the  Motorola's  ECB  System.  Thus,  this  debugger  can  be 
viewed  as  an  up-to-date  version  of  the  Motorola's  debugger. 


II.  A  GENERAL  OVERVIEW  OF  DEBUGGERS  AND  ASSEMBLY  LANGUAGE 

The  goal  of  this  chapter  is  to  give  a  general  background  about  assembly  language 
and  debuggers.  Assuming  that  this  debugger  is  used  as  a  teaching  aid  in  a 
microprocessor  architecture  course  (e.g.,  EC2800  at  the  Naval  Postgraduate  School)  and 
the  student  is  a  beginner  in  this  area,  the  information  contained  in  this  chapter  will 
serve  as  introduction. 

A.       WHAT  IS  AN  ASSEMBLY  LANGUAGE  ? 

An  assembly  language  is  a  level  of  language  between  the  machine  language  and 
high  level  language.  Machine  language  consists  of  a  series  of  binary  digits  which  is  the 
computer  can  interpret  directly  but  is  very  hard  for  humans  to  use.  In  assembly 
language,  each  machine  instruction  is  represented  by  a  mnemonic,  and  there  are  no 
binary  digits.  For  example,  it  is  a  lot  easier  to  remember  the  words  like  MOVE,  ADD, 
SUB,  etc.,  than  to  remember  a  series  of  binary  digits  corresponding  to  these 
instructions.  Essentially,  assembly  language  is  an  English-like  version  of  machine 
language,  and  there  is  a  one-to-one  correspondence  between  instructions  in  these  two 
languages. 

In  addition  to  representing  the  instructions  by  mnemonics,  memory  locations  can 
also  be  given  labels.  In  this  way  the  assembler  keeps  track  of  the  addresses  rather  than 
the  programmer. 

With  the  design  of  the  intelligent  compilers,  high  level  languages  became  more 
capable  and  more  widely  used.  Meanwhile,  assembly  language  became  less  practical 
and  less  important  in  comparison.  High  level  languages  are  easier  to  learn  and  most 


importantly,  they  are  portable.  On  the  other  hand,  assembly  languages  are  not  that 
simple  and  portable.  They  are  heavily  machine  dependent. 

Despite  the  disadvantages  mentioned  above,  assembly  language  is  still  used  and 
has  some  advantages  over  high  level  languages.  Assembly  language  presents  all  the 
available  resources  of  the  processor  to  the  user.  It  allows  more  effective  code 
(sometimes  using  less  memory). 

1.      Format  of  Assembly  Language  Programs 

Assembly  language  program  statements  can  be  considered  to  have  four  parts. 

•  Label  field 

•  Opcode  field 

•  Operand  field 

•  Comment  field 

As  mentioned  above,  labels  are  used  to  refer  to  memory  locations,  as  symbols 
rather  than  absolute  addresses.  Labels,  usually  start  in  the  first  column.  Depending  on 
the  assembler,  most  labels  are  followed  by  a  ":". 

The  opcode  field  contains  the  mnemonic  for  the  instruction  to  be  executed.  Also, 
assembler  directives  such  as  DC  (Define  Constant),  DB  (Define  Byte),  etc.,  can  be 
included  in  this  field. 

The  operand  field  contains  the  source  and  destination  locations  which  will  take 
part  in  the  execution  of  that  instruction.  They  can  be  registers  or  memory  locations. 

The  comment  field  serves  as  a  place  where  the  programmer  can  explain  his 
program.  Comments  are  especially  helpful  in  assembly  language  programs,  since  such 
programs  are  substantially  more  difficult  to  understand  than  high  level  languages. 
Without  comments,  it  may  not  even  be  possible  to  understand  another  programmer's 


assembly  language  program.   For  these  reasons,  an  assembly  language  programmer 
should  have  the  habit  of  writing  down  comments. 

Two  sample  assembly  language  programs  are  given  in  Appendix  G.  Anything 
preceded  by  a  semicolon  is  considered  to  be  a  comment,  which  is  ignored  by  the 
assembler.  Sample  program  #1,  copies  the  elements  of  an  array  of  bytes  A[5]  to  an 
array  B[5].  When  this  program  is  assembled,  a  listing  file  is  obtained,  which  is  given  in 
Appendix  G.  There  are  two  more  fields  in  the  listing  file.  These  fields  are  introduced 
by  the  assembler.  The  first  shows  the  addresses  and  the  second  field  shows  the 
hexadecimal  representation  of  the  machine  code  corresponding  to  the  instructions.  By 
looking  at  the  address  field,  the  user  can  easily  figure  out  how  many  bytes  of  code  is 
produced  by  each  mnemonic  instruction.  Sample  program  #2  serves  as  an  example  of 
coprocessor  instructions. 

B.       WHAT  IS  A  DEBUGGER  ? 

Debuggers  are  software  tools  which  help  in  developing  and  testing  programs. 
These  programs  might  be  written  in  assembly  language  or  in  a  high  level  language. 

The  debugger,  created  in  this  thesis  study,  is  designed  and  implemented  to  debug 
MC68020  assembly  language  programs.  By  using  this  debugger,  the  user  can  create  his 
assembly  language  program,  assemble  it,  download  it  to  ECB,  and  run  it.  He  can  also 
disassemble  his  code  (Disassemble  means  the  hexadecimal  representation  of  memory 
contents  are  converted  into  corresponding  mnemonic  instructions),  display  or  modify 
the  memory  or  register  contents.  In  short,  he  can  control  the  execution  of  his  program. 

As  an  example,  let  us  take  the  sample  program  #1  (see  Appendix  G)  and  further 
let  us  assume  that  the  user  sets  a  Breakpoint  at  address  $001 A  (Dollar  sign  indicates  a 
hexadecimal  number)  which  is  the  label  LOOP.  The  user  also  sets  the  program  counter 
to  $000A  which  is  the  beginning  address  of  his  program.  When  he  starts  to  run  his 


program,  each  time  the  breakpoint  is  reached,  execution  will  stop  and  control  is  given 
to  the  debugger.  He  will  be  able  to  see  the  various  register  and  memory  contents.  At 
this  step  he  can  make  some  memory  or  register  modifications  or  he  can  continue 
without  any  change.  On  the  other  hand,  if  the  user  chooses  to  Trace  Branch  he  will 
be  able  to  see  the  same  kind  of  information  as  many  times  as  a  branch  is  indeed  taken. 

Another  choice  may  be  setting  a  breakpoint  at  address  $0024  which  is  the  end  of 
user  program.  If  the  user  does  not  select  any  Trace  option,  he  will  see  the  information 
only  once,  at  the  end  of  execution  of  his  program,  skipping  the  intermediate  parts.  With 
the  selection  of  a  Trace  option  or  by  setting  breakpoints  and  breakcounts  or  just  by 
removing  the  present  breakpoints,  the  user  can  have  a  variety  of  levels  of  control  when 
executing  his  program. 

More  information  about  the  usage  and  capabilities  of  this  debugger  can  be 
obtained  from  Appendix  F. 


in.    DESIGN  AND  IMPLEMENTATION  OF  THE  DEBUGGER 

This  chapter  gives  a  brief  description  about  the  design  considerations  and 
implementation  of  this  debugger.  More  detailed  information  can  be  obtained  from  the 
appendices  which  are  referenced,  when  necessary,  throughout  the  chapter. 

A.       DESIGN  OBJECTIVES 

The  design  goals  are  listed  below: 

•  This  debugger  should  be  user-friendly. 

•  It  should  be  capable  of  supporting  essential  debugger  commands. 

•  It  should  also  support  MC6888 1  Coprocessor  related  commands. 

An  important  aspect  about  user-friendliness  is  that  the  user  should  not  be  forced 
to  memorize  a  number  of  commands.  For  this  reason,  it  was  decided  to  implement  this 
debugger  on  a  Macintosh  computer.  The  pull-down  menu  capabilities  of  the  Macintosh 
made  it  possible  for  this  debugger  to  be  a  menu-driven  software  tool. 

On  the  other  hand,  only  basic  debugging  commands  were  supported  for  reasons 
of  simplicity.  These  commands  are  the  most  widely  used.  In  general,  these  commands 
can  be  put  in  three  categories: 

1.  Memory  display /modify  commands 

2.  Register  (either  microprocessor's  or  its  coprocessor's)  display/modify  commands 

3.  Control  commands  (e.g.,  setting  a  breakpoint,  tracing,  etc.) 

After  determining  the  design  objectives,  it  was  further  decided  to  design  the 
debugger  as  two  separate  modules.  This  was  an  inevitable  result  of  the  fact  that  this 


debugger  is  to  be  used  in  debugging  assembly  language  programs  which  run  on  the 
ECB.  As  a  result,  the  following  two  modules  are  implemented: 

•  The  main  program  which  is  mostly  written  in  C  and  runs  on  a  Macintosh.  (Part 
of  main  program,  which  does  the  disassembly,  is  written  in  assembly  language.) 

•  The  support  program  (monitor)  which  is  written  in  assembly  language  and  runs 
on  the  ECB. 

The  distribution  of  the  functions  to  the  main  program  and  the  monitor  program 
are  described  in  the  following  two  subsections. 

1.  The  Functions  of  the  Main  Program 

The  functions  provided  by  the  main  program  are  listed  as  follows: 

•  Display  menus  through  which  the  user  interface  is  provided. 

•  Alert  the  user  if  something  goes  wrong  either  in  the  Macintosh  or  in  the  ECB. 

•  Provide  serial  communication  with  the  ECB,  and  with  the  printer  at  a  Baud  rate 
of  9600. 

2.  The  Functions  of  the  Monitor  Program 

The  functions  provided  by  monitor  program  can  be  listed  as  follows: 

•  Provide  serial  communication  with  the  Macintosh  at  a  Baud  rate  of  9600. 

•  Execute  the  command  which  is  sent  by  the  main  program. 

•  Provide  an  Abort  option  to  the  user. 


In  the  following  two  sections,  a  brief  discussion  is  given  of  the  design  and 
implementation  of  these  two  modules. 


B.       MAIN  PROGRAM 

The  main  program  consists  of  functions  contained  in  five  different  files.  They  are 
monitor.c,  download.c,  disasm.c,  menu.c,  and  test.c.  Except  for  the  code  written  for  the 
disassembler  which  is  written  in  assembly  language,  the  rest  of  the  code  is  written  in  C 
Language.  The  source  code  for  the  disassembler  in  the  Tutor  Monitor  [Ref.  1]  is 
obtained  from  the  Motorola  Company,  and  then  with  the  addition  of  some  changes,  it 
was  adapted  to  the  Macintosh. 

When  the  debugger  is  first  run,  it  starts  execution  with  an  initialization  step.  The 
support  of  serial  communication  with  ECB  and  serial  printer,  through  the  modem  port, 
and  serial  printer  port  respectively,  are  done  in  download.c  during  the  initialization 
process.  The  allocation  of  the  required  input  and  output  buffers,  the  baud  rate,  etc.,  are 
all  done  on  the  entry  to  the  program  main(). 

In  order  to  get  the  start  and  end  addresses  of  the  user  program  which  is  to  be 
downloaded,  test.c  is  run  once.  After  that,  main()  displays  the  main  menu,  awaiting  a 
user  command  which  could  be  the  execution  of  a  single  function  such  as  Clearscreen  or 
the  selection  of  any  particular  menu. 

The  choice  of  menus  are  listed  below: 

1.  Options  menu 

2.  Registers  menu 

3.  Floating  Point  Registers  menu 

4.  Memory  display  menu 

5.  Memory  modify  menu 

6.  Go  menu. 

The  user  can  do  different  things  in  different  menus.  A  flowchart  for  each  menu  is 
given  in  Appendix  A.  This  gives  a  clear  understanding  about  how   the   menus  are 


organized  and  how  switching  occurs  between  the  menus.  In  addition  to  the  information 
given  in  Appendix  A,  more  information,  such  as  creating  the  menus,  implementing  the 
user  interface,  etc.,  is  given  in  Appendix  C,  where  all  the  source  code  of  the  debugger 
are  shown. 

C.       MONITOR  PROGRAM 

This  is  a  support  program  for  the  main  debugger  which  runs  on  the  Macintosh. 
The  monitor  program  is  EPROM  resident  and  rims  both  in  RAM  and  ROM.  While 
running,  it  occupies  lower  RAM  address  space.  The  addresses  below  1000  hexadecimal 
are  reserved  for  the  monitor  program.  The  user  program  should  not  reside  in  the 
memory  locations  which  are  reserved  for  the  system.  Even  though  the  debugger  runs  on 
the  Macintosh,  the  user  assembly  language  program  will  run  on  the  ECB.  So,  there  has 
to  be  a  way  of  reaching  its  internal  registers,  its  memory  etc.  These  are  all  ECB-related 
events.  That  is  why  the  monitor  program  was  implemented.  The  whole  code  is  written 
assembly  language.  When  the  ECB  is  powered  up,  or  it  is  Reset,  the  monitor  program 
initializes  the  system  and  waits  for  a  Macintosh  command.  During  initialization  phase, 
EPROM  contents  are  copied  to  RAM,  stack  pointers  are  initialized,  and  program 
execution  is  switched  to  RAM. 

After  the  initialization  phase,  the  monitor  simply  loops  endlessly,  awaiting  a 
command  from  the  Macintosh.  To  provide  an  efficient  way  of  receiving  commands  and 
processing  them,  there  is  a  certain  protocol  established  between  the  ECB  and  the 
Macintosh  (detailed  information  about  this  protocol  is  given  in  Appendix  B).  According 
to  this  protocol,  each  command  has  a  distinct  one-byte-long  code.  Upon  receiving  this 
code,  its  corresponding  command  (such  as  memory  write/display,  etc.)  is  executed.  If 
the  command  is  a  Go  command,  program  execution  continues  at  a  user-provided 
program  counter  value.  Following  the  execution  of  the  user  command,  the  monitor 
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continues  to  loop,  waiting  for  the  next  command. 

Among  the  functions  of  the  monitor  routine  are  providing  communication  with 
the  Macintosh  and  supporting  an  Abort  option.  These  two  functions  are  briefly  pointed 
out  in  the  following  two  subsections.  Furthermore,  a  detailed  information  about  monitor 
program  is  given  in  Appendix  C. 

1.      Serial  Communication  in  Software 

This  debugger,  as  it  was  mentioned  before,  consists  of  two  separate 
programs  running  on  two  different  systems,  namely  the  Macintosh  and  the  ECB.  This 
requires  communication  between  the  two.  The  protocol  provided  is  typical  of  serial 
communication  (at  a  Baud  rate  of  9600).  As  far  as  the  ECB  is  concerned,  this  could  be 
done  in  hardware,  with  the  utilization  of  commercially  available  integrated  circuits.  The 
other  possible  choice  was  to  do  this  in  software  (further  information  can  be  obtained 
from  Ref.  4).  The  software  approach  was  selected,  slightly  simplifying  the  hardware. 

On  the  Macintosh  side,  a  modem  port  is  used  for  serial  communication  with  the 
ECB.  The  modem  port  is  initialized  to  a  Baud  rate  of  9600  by  download.c.  In  order  to 
send  or  receive  bytes,  already  available  system  calls  are  utilized.  On  the  ECB  side,  two 
routines  are  written  to  provide  serial  communication  with  the  Macintosh.  RUART  and 
SUART  are  the  routines  which  provide  communication  outside  of  the  ECB.  RUART 
receives  the  incoming  bytes  via  the  RS232  input.  SUART,  on  the  other  hand,  transmits 
bytes  via  the  RS232  interface.  Both  routines  work  at  a  Baud  rate  of  9600.  This  Baud 
rate  is  established  by  a  clock  frequency  of  16  MHz.  When  the  frequency  is  halved,  for 
instance,  so  is  the  Baud  rate. 

When  transmitting  data  at  a  Baud  rate  of  9600,  the  bits  are  104.7  microseconds 
apart.  Starting  with  the  clock  cycles  needed  to  execute  some  of  the  instructions,  an 
estimate  of  what  instructions  to  use,  how  many  times  to  loop  in  order  to  establish 
enough  delay  for  a  Baud  rate  of  9600,  is  made.  Then,  using  the  estimated  values,  an 
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approximate  delay  was  obtained.  Later  on,  by  trial  and  error,  enough  delay  is  provided 
for  a  Baud  rate  of  9600. 

In  order  to  receive  the  incoming  bytes,  the  RS232  input  has  to  be  sampled  once 
every  104.7  microseconds.  In  this  way,  every  single  bit  can  be  sensed.  Briefly,  the 
reception  of  a  byte  is  done  as  follows:  After  detecting  the  start  bit,  eight  consecutive 
bits  are  received.  The  detection  of  two  stop  bits  follows  this.  The  eight  bits  constitute 
the  byte  to  be  received.  In  case  the  stop  bit  is  not  detected,  a  frame  error  occurs.  This 
reveals  that  an  error  is  made  during  data  transmission. 

Sending  of  a  byte  on  the  other  hand,  starts  with  the  transmission  of  the  start  bit. 
The  transmission  of  eight  bits  follows  this.  It  is  provided  that  the  duration  of  each  bit 
is  104.7  microseconds.  Finally  the  stop  bits  are  sent.  This  action  concludes  the 
transmission  of  a  single  byte. 

A  detailed  information  about  the  communication  routines  is  given  in  Appendix  D. 

2.      Implementation  of  Abort  Option 

Another  thing  to  be  noted  here  is  the  Abort  option.  An  Abort  occurs  when 
the  abort  button  on  the  ECB  is  pressed.  The  Abort  button  is  pressed  in  order  to  recover 
from  an  undesired  situation.  This  undesired  situation  can  be  an  endless  loop,  for 
example. 

Pressing  the  Reset  button  also  provides  a  recovery,  but  in  this  case  all  the  register 
contents  are  lost,  whereas  pressing  the  Abort  button  causes  a  special  Abort  handler 
routine  to  execute  which  uploads  all  the  current  register  contents  to  the  Macintosh.  As 
a  result,  the  user  can  see  all  the  register  contents  when  he  presses  the  Abort  button. 
More  information  about  Abort  can  be  obtained  from  Appendix  E. 
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IV.    VALIDATION  OF  THE  DEBUGGER 

As  the  modules  which  perform  the  functions  of  the  debugger  were  being 
developed,  each  was  tested  for  correctness.  After  providing  serial  communication 
between  the  Macintosh  and  the  ECB,  the  download,  memory  display,  and  memory 
write  functions  were  implemented  and  tested.  These  three  functions  were  then  used  in 
developing  other  functions  of  the  debugger  on  the  ECB  side.  Until  the  completion  of 
these  functions,  the  HP1650A  logic  analyzer  was  the  only  tool.  After  implementing  all 
debugger  functions,  the  overall  debugger  was  exhaustively  tested.  Five  sets  of  test 
programs  were  written,  where  each  set  tested  the  following  sections  of  code. 

•  Communication  between  the  Macintosh  and  the  ECB. 

•  Downloading  a  program  from  Macintosh  to  the  ECB. 

•  Displaying  and  modifying  the  ECB's  memory/registers. 

•  Debugging  MC68020  microprocessor  instructions. 

•  Debugging  MC6888 1  coprocessor  instructions. 

The  instructions  in  this  programs  were  selected  such  that  they  could  test  almost 
every  possibility  of  a  bug  in  the  system  (e.g.,  loss  of  stack  space,  modifying  the 
memory  incorrectly,  etc.) 

In  the  following  two  sections  of  this  chapter  the  functionality  of  this  debugger 
will  be  demonstrated  by  showing  the  results  of  test  programs  in  response  to  the 
execution  of  the  debugger  commands.  Three  different  test  programs  are  debugged  under 
various  levels  of  control. 
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A.       DEBUGGING  MC68020  INSTRUCTIONS 

In  this  section,  a  test  program  is  demonstrated  which  contains  various  MC68020 
instructions.  Various  levels  of  control  (such  as  tracing,  setting  a  breakpoint,  etc.)  were 
used  while  running  the  test  program.  In  addition  to  testing  these  capabilities,  some 
other  debugger  functions,  such  as  download,  memory  write,  and  memory  display  are 
tested.  For  testing  purposes,  test  program  #1  was  written  in  the  file  test.c.  This  is 
shown  in  Figure  1. 


MOVE.L 

#0,D0;  [DO]  <-  0 

MOVE.L 

#1,D1 

[Dl]  <-  1 

MOVE.L 

#2,D2 

ID2]  <-  2 

MOVE.L 

#0,A0 

[AO]  <-  0 

MOVE.L 

#1,A1 

[Al]  <-  1 

MOVE.L 

#2,A2 

[A2]  <-  2 

MOVE.L 

#3,D3 

[D3]  <-  3 

MOVE.L 

#4,D4, 

ID4J  <-  4 

MOVE.L 

#5,D5; 

[D5]  <-  5 

LI: 

SUB.L 

#1,D5; 

[D5]  <-  [[D51-1] 

BNE 

LI        ; 

MOVEM.L 

D0-D2,-(SP); 

MOVEM.L 

(SP)+,D0-D2; 

ADD.L 

#2,D2;  [D2]  <-  [[D2J+2] 

TRAP 

#15     i 

Figure  1  Test  program  #1 

This  program  is  downloaded  to  the  ECB,  starting  at  the  address  $1000  (Dollar 
sign  means  hexadecimal).  This  is  done  by  selecting  the  Download  function  in  the  main 
menu.    The   execution    of  the    memory    display    command    (displaying    the    memory 
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locations  $1000  through  $1032)  shows  the  memory  contents  just  before  downloading 
the  test  program.  In  order  to  be  able  to  execute  the  memory  display  command,  the 
user  needs  to  select  the  Memory  Display  Menu  (see  Figure  2).  In  Figure  2  the 
addresses  From  and  To  determines  the  portion  of  memory  which  is  going  to  be 
displayed. 


1  Functions  1 

^^^=  Display  Memory  mum 

\ 

From 

To 

Size 

00001000 

00001 032) 

Cancel 

00000032 

Display 

O  Disassemble 

Figure  2  Memory  Display  Menu 


As  a  result  of  the  execution  of  the  memory  display  command  the  following  was 
obtained. 

0      1      23454     7-89ABCDEF 

00001000    FF   FF   FF   EF   FF   BF   FE   EF   FF   FF   FF   FB   FF   EF   EF   FB      

00001010    FF   FF   FF   BF   FF   FB   FF   FE   FF   EF   FF   EB   FE   FF   FF   FF      

00001020    FF   FF   EF   BF   FF   FF   FF   EF   FF   FF   FF   FF   FF   FF   FF  FE      

00001030    FF   FF   BF   xx   xx    xx    xx    xx    xx    xx   xx    xx   xx    xx    xx    xx 

The  execution  of  the  download  command  modifies  the  above  memory  contents.  The 

new   memory   contents   are   the   user   program.   This   can   be    seen   by   executing   the 

memory  display  command. 
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0.123454787ABCD-EF 
00001000  70  00  72  01  74  02  20  7C  00  00  00  00  22  7C  00  00 
00001010  00  01  24  7C  00  00  00  02  76  03  78  04  7A  05  53  85 
00001020  66  00  FF  FC  48  E7  E0  00  4C  DF  00  07  54  82  4E  4F 
00001030  FF  FF  BF  xx  xx  xx  xx  xx  xx  xx  xx  xx  xx  xx  xx  xx 


p  .  r  .  t .  I  . . . .  *  I  . . 
.  .$1 . . . .v.x.z.S. 
f ...H...L...T.N0 


In  order  to  see  that  the  test  program  was  correctly  loaded  the,  memory  display 
command  was  executed  with  the  disassemble  option.  The  result  is  shown  in  Figure  3. 


00001000 

'  7000 

MOVEQ.L 

BO,  DO 

00001002 

7201 

MOVEQ.L 

Hl.Dl 

00001004 

7402 

MOVEQ.L 

U2,D2 

00001004 

207C00000000 

MOVE.L 

H0,A0 

0000100C 

227C00000001 

MOVE.L 

HI  ,A1 

00001012 

247C00000002 

MOVE.L' 

H2.A2 

00001018 

7403 

MOVEQ.L 

H3.D3 

0000101A  • 

7804 

MOVEQ.L 

H4.D4 

0000  1  0  i  c 

7A05 

MOVEQ.L 

H5,D5 

0000  1  0  1  E 

5385  • 

• SUBQ.L 

H1,D5 

00001020 

4600FFFC  . 

BNE.L 

*00101E 

00001024 

48E7E000 

MOV  EM.  L 

D0-D2,-(A7> 

00001028 

4CDF0007 

MOV  EM. L 

<A7)+,D0-D2 

0000102C 

5482 

ADDQ.L 

«2,D2 

0000102E 

4E4F 

TRAP 

H15 

00001030 

FFFF 

WORD 

$FFFF 

00001032 

BFBF 

'  WORD 

*BFBF 

Figure  3  Disassembled  test  program  #1 

Then  various  levels  of  control  were  used  during  the  execution  of  the  test 
program.  The  first  three  commands  in  the  test  program  were  executed  with  the 
selection  of  the  Trace  All  option  in  Go  menu.  (Go  menu  is  shown  in  Figure  4.)  With 
the  Trace  AH  option,  the  program  execution  returns  to  the  debugger  after  the  execution 
of  every  instruction.  The  debugger  displays  the  result  of  each  executed  instruction. 

Setting  the  program  counter  value  to  $1000,  selecting  the  Trace  All  option,  and 
then  clicking  go  causes  the  first  instruction  of  the  test  program  #1  to  be  executed.  The 
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result  is  shown  below. 

PC=00001002 

SR=8004 

D0=00000000 

D4=00000000 

A0=00000000 

A4=00000000 

00001002 


USP=0001F800  SSP=0001FCOO  ISP=0001FFFC 

D1=00000000   D2=00000000   D3=00000000 

D6=00000000 

A2=00000000 

A4=00000000 


D5=00000000 
A1=00000000 
A5=00000000 


D7=00000000 
A3=00000000 
A7=0001F800 


7201 


MOVEQ.L     ttl.Dl 


*    File 


Functions 


©Goto 

OCall 


00001000 


return  to 


No  Menu 


Breakpoints 


Clear  all) 


00000000 

0000 

00000000 

0000 

00000000 

loooo  I 

00000000 

0000 

00000000 

0000 

Trace  nil 


O  Display  Steps 


[    Cancel 


Figure  4  Go  menu 


Clicking  go  once  more  gives  the  following: 


PC=00001004 
SR=8000 
•D0=00000000 
D4=00000000 
A0=00000000 
A4=00000000 
00001004 


USP=0001F800  SSP=0001FC00  ISP=0001FFFC 

Dl=00000001  D2=00000000   D3=00000000 

D5=00000000  06=00000000 

A1=00000000  A2=00000000 

A5=00000000  A6=00000000 
7402 


D7=00000000 
A3=00000000 
A7=0001F800 
H0VEQ.L  H2,D2 


And  finally,  clicking  go  once  again,  one  more  instruction  is  executed. 
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PC=0000100<S 

SR=8000  USP=0001F800  SSP=0001FC00  1SP=0001FFFC 

D0=00000000  Dl=00000001  D2=00000002  03=00000000 

04=00000000  D5=00000000  D6=00000000  D7=00000000 

A0=00000000  A1=00000000  A2=00000000  A3=00000000 

'A4=00000000  A5=00000000  A6=00000000  A7=0001F800 

00001004  207COO0O0000  MOVE.L   HO.AO 

Before  changing  the  level  of  control,  looking  at  the  outcomes  of  the  previous 
three  steps,  it  is  seen  that  three  instructions  were  executed  correctly.  That  is,  as  a  result 
of  the  MOVE  instructions,  the  new  contents  of  the  data  registers  DO,  Dl,  and  D2  are 
zero,  one,  and  two  respectively.  The  results  of  the  instructions  could  also  be  seen  by 
selecting  the  registers  menu  (in  the  main  menu).  The  registers  menu  can  also  be 
displayed  without  going  through  the  main  menu.  The  format  of  the  information  which 
is  displayed  after  the  execution  of  the  user  program  depends  on  the  selection  of  the 
return  to  option  in  Go  menu.  The  user  has  three  choices.  When  return  to  is  selected  as 
Go  menu,  following  the  execution  of  user  program,  Go  menu  is  displayed  again.  When 
return  to  is  selected  as  No  menu,  no  menu  is  displayed  on  the  screen,  instead  register 
contents  are  displayed.  (This  is  the  format  used  in  the  previous  three  steps.)  And  as  the 
third  choice,  return  to  can  be  selected  as  Registers  menu.  In  this  case,  following  the 
execution  of  user  program,  Registers  menu  is  displayed  on  the  screen.  In  order  to  see 
this,  the  last  trace  step  is  repeated  with  return  to  selected  as  Registers  menu.  The  result 
is  shown  in  Figure  5. 

In  order  to  see  the  effect  of  the  Trace  Branch  option,  consider  the  following. 
With  the  Trace  Branch,  program  execution  returns  to  the  debugger  when  a  branch 
(either  the  unconditional  branch  BRA  or  one  of  the  conditional  branches,  such  as  BEQ, 
BNE,  etc.)  is  taken.  This  means  that  the  user  will  be  able  the  see  the  results  when 
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*  File 

1  Function! ■ 

i 

0 
1 

2 
3 
4 
5 
6 
7 

Cor 

Oi 

D   O  Clear  nil   n 

1  S  i 

USP 
SSP 
ISP 
PC 
SR 
LIBR 
CRCR 
CRRR 
)SDFC 

Intern 

0001F800 

I'I'I'I'M'I'I'I 

00000000 

O0OIFC00 

00000001 

00000000 

0001FFFC 

00000002 

00000000 

00001006 

00000000 

00000000 

8000 

00000000 

00000000 

00000000 

00000000 

00000000 

00000000 

00000000 

00000000 

EF7D7RBF 

00000000 

(   User 

77 

idition  Code 

\  ON  oz  < 

s 

Ou  oc 

ipt  LeuelQT 
[  Go  1  [Quit 

) 

V 

Figure  5  Registers  menu 


there  is  a  change  on  the  flow  of  the  program.  In  the  test  program  #1  of  Figure  1,  there 
is  a  branch  instruction  BNE  which  executes  five  times.  The  expected  result  after  one 
execution  is  that,  when  the  registers  are  displayed  on  the  screen,  the  program  counter 
content  is  $101E,  and  data  register  D5  contains  four  (since  it  is  loaded  with  five  and  is 
decremented  by  one  before  the  branch). 


USP=0001F800   SSP=0001FC00    ISP=0001FFFC 


PC=0000101E 

SR=6000 

D0=00000000  Dl=00000001 

D4=00000004  D5=00000004 

A0=00000000  Al=00000001 

A4=00000000  A5=00000000 

0000101E  5385 


D2=00000002 
D6=00000000 


03=00000003 
D7=00000000 


A2=00000002  A3=00000000 
A6=00000000  A7=0001F800 

SUBQ.L   H1.D5 
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The  previous  output  was  exactly  the  same  as  expected.  Now  the  use  and  effect  of 

a  breakpoint  is  illustrated.  In  test  program  #1  of  Figure  1  there  are  two  instructions 

which  perform  a  push  onto  the  stack  and  a  pop  from  the  stack.  After  executing  these 

instructions,    the    content    of   the    stack   pointer    should    remain    unchanged.    Before 

executing,  the  trace  level  was  set  to  No  Trace  and  a  breakpoint  was  set  to  the  address 

$1028.  There  are  three  stack  pointers  in  the  MC68020.  They  are:  User  Stack  Pointer 

(USP),  Supervisor  Stack  Pointer  (SSP),  and  the  Interrupt  Stack  Pointer  (ISP).  In  Go 

menu  the  default  stack  pointer  is  the  USP  (the  active  stack  pointer  can  be  changed  to 

another  one  by  the  user).  So,  the  stack  operations  in  the  test  program  #1  will  be  in  the 

User  Stack.  The  instruction  MOVEM.L  D0-D2,-(SP)  will  push  the  registers  DO,  Dl,  D2 

onto  the  stack.  At  the  breakpoint  the  displayed  USP  content  is  expected  to  be  12  less 

than  its  original  value  (as  a  result  of  the  pushes  onto  the  stack).  And  also  the  program 

counter  should  point  to  the  instruction  at  the  breakpoint  address.  The  following  output 

was  obtained  after  this  step.  By  examining  the  register  contents,  it  was  verified  that  the 

result  is  correct. 

PC=00001028 

SR=0004             USP=0001F7F4  SSP=0001FC00  1SP=0001FFFC 

D0=00000000      Dl=00000001  D2=00000002  D3=00000003 

D4=00000004      D5=00000000  D<<=00000000  D7=00000000 

A0=000Q0000      Al=00000001  A2=00000002  A3=00000000 

A4=00000000     A5=00000000  A£=00000000  A7=0001F7F4 

00001028          4CDF0007  MOVEM.L      <A7)+,D0-D2 

At  this  point,  the  use  of  the  memory  display  command  (of  memory  locations 

$1F7E0  through  $1F7FF)  shows  the  new  stack  contents. 

> 

0   1   23456789ABCDEF 

0001F7EO  FF  FF  FF  FF  FF  FF  FF  FF  FF  FF  F7  DF  FF  FF  FF  D7   

0001F7F0  FF  FF  DF  FF  00  00  00  00  00  00  00  01  00  00  00  02   
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The  underlined  part  of  the  previous  output  shows  that  the  contents  of  data 
registers  DO,  Dl,  D2  are  pushed  on  to  the  stack.  The  longword  (four  bytes)  at  the 
address  $1F7F4  contains  the  content  of  DO,  the  next  longword  (at  the  address  $1F7F8) 
contains  the  content  of  Dl,  and  the  longword  at  the  address  $1F7FC  contains  the 
content  of  D2.  This  current  stack  content  can  be  changed  with  the  use  of  the  memory 
write  command.  In  order  to  be  able  to  execute  the  memory  write  command,  the  user 
needs  to  select  the  Memory  Write  Menu  in  the  main  menu.  This  menu  is  shown  in 
Figure  6. 


File 


Functions 


Write  Memory 


Location 


Contents 


00001F7F4 


00001989 


OByte 

OWord 
(•)  Long 
®  Uerify 


®  Increment 
O  No  Change 
OOocrement 


Figure  6  Memory  write  menu 

By  executing  the  memory  write  command  (writing  $00001989  to  the  address  $1F7F4), 
and,  following  that,  executing  a  memory  display  command,  the  s"tack  contents  become: 


0123456789ABCDEF 
0001F7E0  FF  FF  FF  FF  FF  FF  FF  FF  FF  FF  F7  DF  FF  FF  FF  D7 
0001F7F0   FF   FF   DF   FF   00    00    1?   8?   00    00   00    01    00   00   00   02 
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This  last  execution  shows  the  effect  of  the  memory  write  command.  Up  to  this 

point  the  test  program  has  been  executed  either  by  tracing  or  by  setting  a  breakpoint. 

If  there  are  no  trace  or  breakpoints  in  the  program,  execution  returns  to  the  debugger 

when  the  final  instruction  (Trap  #15)  is  encountered.  In  order  to  test  this,  breakpoints 

were  removed  and  No  Trace  option  was  selected  before  clicking  go. 

PC=0000102E 

SR=0000  USP=0001F800  SSP=0001FC00  ISP=0001FFFC 

00=00000000  Dl=00000001  D2=00000004  D3=00000003 

D4=00000004  D5=00000000  D6=00000000  D7=00000000 

A0=00000000  Al=00000001  A2=00000002  A3=00000000 

A4=00000000  A5=00000000  A<S=00000000  A7=0001F800 

0000102E  4E4F  TRAP            HIS 

As  it  is  seen  in  the  last  output,  the  program  execution  is  indeed  returned  to  the 
debugger  when  the  Trap  #15  instruction  was  encountered. 

The  following  program  (test  program  #2)  is  exactly  the  same  as  the  test  program 
which  has  already  been  described  with  the  exception  of  Trap  #15  instruction  which  is 
now  replaced  by  an  RTS  instruction.  As  far  as  the  execution  of  the  user  program  is 
concerned,  there  are  two  modes  in  Go  menu.  They  are:  Goto  and  Call.  Test  program 
#1  was  executed  with  the  mode  Goto  (this  is  the  default  mode)  selected  in  Go  menu. 
Call  option  is  provided  in  order  to  test  the  subroutines.  When  Call  is  selected  as  the 
operating  mode,  after  the  execution  of  the  subroutine  the  program  counter  points  to  the 
beginning  address  of  the  subroutine  just  called  (for  more  details  see  Appendix  F).  In 
order  to  illustrate  the  use  of  mode  Call,  test  program  #2  was  written  in  the  file  test.c, 
the  debugger  was  run  and  the  program  was  downloaded  to  the  ECB.  Execution  of  a 
memory  display  command  (displaying  the  memory  locations  $1000  through  $1032) 
with  the  disassemble  option  displays  test  program  #2  and  verified  the  correctness  of 
downloading.  This  is  shown  in  Figure  7. 
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00001000 

7000 

MOVEQ.L 

HO, DO 

00001002 

7201 

MOVEQ.L 

H1,D1 

00001004 

7402 

MOVEQ.L 

H2.D2 

00001006 

207C00000000 

MOVE.L 

«0,A0 

0000100C 

227C00000001 

MOVE . L 

«1,A1 

00001012 

247C00000002 

MOVE.L 

H2,A2 

00001018 

7603 

MOVEQ.L 

H3.D3 

0000101A 

7804 

MOVEQ.L 

»4,D4 

0000101C 

7A05 

MOVEQ.L 

«5,D5 

0000101E 

5385 

SUBQ.L 

«1,D5 

00001020 

6600FFFC 

BNE.L 

$00101E 

00001024 

48E7E000 

MOV  EM.  L 

D0-D2,-<A7> 

00001028 

4CDF0007 

MOVEM.L 

<A7)+,D0-D2 

0000102C 

5482 

ADDQ.L 

H2,D2 

0000102E 

4E75 

RTS 

00001030 

FFFF 

WORD 

*FFFF 

00001032 

FFBF 

WORD 

$FFBF 

Figure  7  Disassembled  test  program  #2 

Before  clicking  go,  the  program  counter  value  is  set  to  $1000.  The  output  after 
the  execution  is  shown  below.  The  program  counter  still  points  to  $1000  after  the 
execution  of  the  test  subroutine. 


PC=00001000 

SR=0000 

D0=00000000 

D4=00000004 

A0=00000000 

A4=00000000 

00001000 


USP=0001F800  SSP=0001FC00  ISP=0001FFFC 

Dl=00000001   D2=00000004  03=00000003 

D6=00000000 

A2=0Q000002 

A6=00000000 


D5=00000000 
Al=00000001 
A5=00000000 
7000 


D7=00000000 
A3=00000000 
A7=»0001F800 
MOVEQ.L  «0,D0 


B.       DEBUGGING  MC68881  INSTRUCTIONS 

In  this  section  we  consider  the  verification  of  coprocessor-related  capabilities  of 
the  debugger.  For  this  purpose,  test  program  #3  was  written.  This  test  program  contains 
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two  coprocessor  instructions  and  is  shown  in  Figure  8.  Prior  to  execution  floating  point 
register  FP4  is  assumed  to  contain  a  number  X  whose  sine  and  cosine  are  to  be 
computed. 


DC.W 

$F200;  FSINCOSX.X  FP4,FP5JFP6 

DC.W 

$12B6; 

DC.W 

$F23C;  FMOVE.L  #7,FP7 

DC.W 

$4380; 

DC.W 

$0000; 

DC.W 

$0007; 

Figure  8  Test  program  #3 

This  program  was  written  in  test.c,  the  debugger  was  run,  coprocessor  option 
was  selected  in  go  menu,  and  test  program  was  downloaded  to  the  ECB.  The  result  of 
executing  the  memory  display  command  (disassembling  the  memory  contents  starting 
from  $1000  and  ending  at  $1014)  is  shown  in  Figure  9.  Since  the  current  disassembler 
is  not  able  to  disassemble  coprocessor-related  instructions,  these  unsupported 
instructions  are  displayed  in  their  hexadecimal  representation.  In  this  test,  0.785375  was 
entered  in  the  register  FP4  as  X  (0.785375  radians  corresponds  to  45  degrees). 
Following  this,  the  program  counter  value  was  set  to  $1000,  and  go  was  clicked.  The 
expected  result  is  the  sine  of  45  degrees  (which  is  nearly  0.707)  in  floating  point 
register  FP5,  the  cosine  of  45  degrees  in  FP6  (which  is  also  'nearly  0.707),  and  of 
course  0.785375  in  FP4.  As  a  result  of  the  second  instruction,  floating  point  register 
FP7  was  supposed  to  contain  seven.  The  outcome  of  this  test  run  is  shown  in  Figure  9 
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where  the  floating  point  registers  menu  is  displayed.  As  it  is  seen  in  Figure  9  the  result 
is  exactly  the  same  as  it  was  expected. 


00001000 

F200 

WORD 

$F200 

00001002 

12B6 

WORD 

*12B6 

00001004 

F23C 

WORD 

$F23C 

00001006 

4380 

CHK.W 

D0,D1 

00001008 

00000007 

OR.B 

H7.D0 

0000100C 

4E4F 

•TRAP 

H15 

0000100E 

F206 

WORD 

*F206 

00001010 

4322 

WORD 

$4322 

00001012 

4E4F 

TRAP 

H15 

00001014 

00000002 

OR.B 

H2.D0 

Figure  9  Disassembled  test  program  #3 


Floatinq  Point  Registers 


Sign 

Mantissa 

Sign 

Ehp 

+ 

liI.MiliIiMiMiM.M.I.IiI.l 

+ 

000 

+ 

00000000000000000 

+ 

000 

+ 

00OO00O00000000OO 

+ 

000 

+ 

00000000000000000 

+ 

000 

+ 

78537500000000000 

- 

001 

+ 

70709040200144138 

- 

001 

+ 

70712315999226049 

- 

001 

+ 

70000000000000000 

+ 

000 

OBSUN 
OSNON 
OOPERR 
O0UFL 
OUNFL 
ODZ 
O INEH2 
O INEH1 


Status 

00000008 

IR 

00000000 

Control      0000 


Quit 


ON  OZ  Ol  ONRN 


Figure  10  Floating  point  registers  menu 
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V.    CONCLUSIONS  AND  RECOMMENDATIONS 

A.       CONCLUSIONS 

The  debugger  written  under  the  topic  of  this  thesis  study  can  be  considered  as  an 
up-to-date  version  of  the  Motorola's  debugger,  Tutor,  which  was  in  wide  use  for  a  long 
time.  This  debugger,  together  with  the  MC68020  based  ECB,  constitutes  a  very  handy 
tool  for  students  and  for  researchers.  When  compared  to  the  Motorola's  debugger,  it  has 
some  advantages  and  some  disadvantages. 
The  advantages  are: 


•  It  can  support  MC68020  state-of-the-art  microprocessors  rather  than  MC68000.  It 
can  handle  Coprocessor  instructions. 

•  The  user  does  not  have  to  memorize  some  debugger  commands,  using  pull-down 
menus,  it  is  easier  to  learn  and  easier  to  use. 

•  No  dumb  terminal  is  needed  as  part  of  the    debugger.  Instead  the  Macintosh  is 
utilized  as  an  intelligent  front  end. 


The  disadvantages  are: 


•  Fewer  debugger  commands  are  supported  compared  to  the  Motorola's  debugger. 

•  Since  this  debugger  communicates  with  ECB  via  RS232  interface,  which  takes 
some  amount  of  time,  it  is  somewhat  slower  than  the  Motorola's  debugger. 


B.       FUTURE  WORK 

As  was  mentioned  before,  part  of  the  debugger  resides  in  EPROM  and  runs  on 
ECB.  It  is  called  the  monitor  program.  In  monitor,  only  a  limited  number  of  exceptions 
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could  be  supported  due  to  limited  amount  of  time  for  this  thesis  study.  The  exceptions 
which  have  associated  exception  handler  routines  are:  Reset,  Privilege  Violation,  Level 
4  and  Level  6  Auto  vectored  Interrupts,  Trace  and  Trap  #15  (for  more  information  about 
exceptions,  see  section  6  in  Ref.  2).  The  other  exception  vector  entries  are  loaded  with 
the  address  of  a  short  routine  (STACKFRAME),  which  does  nothing  but  arrange  the 
stack.  This  prevents  the  loss  of  some  stack  space  and  system  lock.  As  a  future  study, 
the  corresponding  exception  handlers  can  be  written  for  the  yet  unsupported  exceptions. 

By  selecting  Disassemble  option,  the  desired  memory  locations  can  be 
disassembled  and  displayed  on  the  screen.  But  the  disassembly  routine  handles  only 
MC68000  instructions.  MC68020  instructions  are  not  supported.  They  are  displayed  in 
their  hexadecimal  form.  As  a  future  work,  with  some  additions  to  the  disassembly 
routine,  the  disassembly  of  MC68020  instructions  can  be  supported. 

As  another  improvement  to  this  debugger,  some  more  debugger  commands  can  be 
supported,  which  enable  the  user  to  Fill  a  Block  of  Memory,  Move  a  Block  of 
Memory  or  a  Search  a  Block  of  Memory. 

In  the  current  version  of  this  debugger,  the  program  to  be  downloaded  has  to 
exist  in  a  single  file,  test.c.  It  may  be  very  beneficial  if  the  user  is  given  the  option  of 
downloading  the  program  in  any  one  of  different  files.  This  could  not  be  done  because 
current  version  of  LightspeedC  did  not  allow  it. 

This  debugger  has  the  capability  of  providing  the  user  a  hardcopy  option.  But  it 
works  only  with  Imagewriter  serial  printer.  It  will  be  very  practical  if  a  variety  of 
Macintosh  compatible  printers  can  be  included  in  a  menu,  where  the  user  can  select 
which  one  to  use. 
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APPENDIX  A:    FLOWCHARTS  FOR  THE  DEBUGGER 

I  -  FLOWCHART  FOR  MAIN  MENU 


-« 

ii^ — <r      QUIT       ^ 

\    ?    / 

Ino 

f    "" 

END               \ 

PROGRAM          J 

YES 

\DOWNLOAD/ 

\    ?    / 

CLEAR  \ 

.    YES 

CLEAR 
SCREEN 

SCREEN   . 

\  ?  / 
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GO 


NO 


REGISTERS/ 


NO 


YES 


YES 


YES 


GO 

MENU 


/regA 

V  MENU   / 


MEMORY^ 
DISPLAY, 

? 


YES 


NO 


MEMORY 

WRITE 

? 


NO 


YES 
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2-  FLOWCHART  FOR  REGISTERS  MENU 


DISPLAY 
REGISTERS  MENU 


WAIT  FOR  USER  INPUT 


DISPOSE 
REGISTERS  MENU 


YES 


YES 


NO  MENU 


REG. 
MENU 


GO 

MENU 


QUIT 
OR 
GO  ? 


NO 


CLEAR  ALL, 
7 

NO 

MODIFY 
REGS. 
? 

NO 


COND. 
CODES 
? 


NO 


YES 


CLEAR 
DO-D7,  A0-A6 

UPDATE  MENU 


TOGGLE 

PROCESSOR  STATE 

UPDATE  MENU 


REGISTERS  MENU 


CALL  GO  ROUTINE 


NO  MENU 


YES 

SET 
REGISTER  VALUE 
UPDATE  MENU 

YES 

TOGGLE 
THAT  COND.  CODE 
UPDATE  MENU 
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3-  FLOWCHART  FOR  FLOATING  POINT  REGI5TER5  MENU 


DISPLAY 
FREG5.   MENU 


WAIT  FOR  USER  INPUT 


DISPOSE 
FREGS.  MENU 


YES 


f  main  \ 

I   MENUJ 


QUIT  7 


NO 


EXP.  SIGN 
7 


YES 


SET  EXP.  SIGN 
UPDATE  MENU 


NO 


YES 


J1ANT.  SIGN, 
7 


SET  MANT.  SIGN 
UPDATE  MENU 


NO 


YES 


SET  EXP.  VAL. 
UPDATE  MENU 


NO 


J1ANT.  VAL. 
7 


YES 


SET  MANT.  VAL. 
UPDATE  MENU 


NO 


EXCEPTION 

5TATUS, 

7 


YES 


TOGGLE  THAT  BIT 
UPDATE  MENU 


TOGGLE  THAT  BIT 
UPDATE  MENU 
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A-  FLOWCHART  FOR  MEMORY  DISPLAY  MENU 


DISPLAY 
MEH.DISPLAY  MENU 

1 

i 

WAIT  FOR  USER  INPUT 

DISPOSE 
MEM_DI SPLAY  MENU 


YES 


CANCEL 
7 


NO 


NO 


NO 


NO 


YES 


SET  FROM  VALUE 
UPDATE  MENU 


YES 


SET  TO  VALUE 
UPDATE  MENU 


YES 


SET  SIZE  VALUE 
UPDATE  MENU 


DISASM. 

V         ?       / 

YES 

TOGGLE  DISASM 

UPDATE  MENU 

\       . 

,   NO 

1 

DISPOSE 
-1EM_DISPLAY  MENU 

\ 

' 

(               CALL 

I     MEMOR 

i  DUMP 

) 
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5-  FLOWCHART  FOR  MEMORY  WRITE  MENU 


DISPLAY 
MEMORY_WRITEMENU 


WAIT  FOR  USER  INPUT 


DISPOSE 
MEMORY_WRITEMENU 


YES 


f  MAIN^ 
V  MENUy 


QUIT  ? 


NO 


NO 

C./DEC. 
? 

NO 


.LOCATION 
? 


• 

k  YES 

SET  SIZE  VALUE 
UPDATE  MENU 

• 

YES 

SET  INC/DEC.  VAL. 
UPDATE  MENU 

YES 

TOGGLE  VERIFY 
UPDATE  MENU 

YES 

SET  LOCATION  VAL 
UPDATE  MENU 

TAB  j 
7  / 

NO 

SET  CONTENT  VAL. 
UPDATE  MENU 

\       . 

Yyes 

(               CALL 

I   MEMORY  WRITE 

) 
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6-  FLOWCHART  FOR  GO  MENU 


YES 


DISPOSE 
GO   MENU 


I  MENU  J 


GO 
MENU 


DISPLAY 
GO     MFNU 


WAIT  FOR  USER  INPUT 


YES 


NO 


NO 


CALL 
GO  ROUTINE 


DISPOSE 
GO   MENU 


REG_MENU    /  \    GO_MENU 

vRETURN_TOy 


-*i      2 


NO_MENU 


DISPLAY 
REGISTERS  INFO. 
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BREAK 
POINTS 
? 

NO 


YES 


PGM. 

COUNTER 

? 

NO 


NO 


DISPLAY 
STEPS 

? 

NO 


RETURN_TOy 
? 

NO 


YES 

SET  PGM.  COUNTER 
UPDATE  MENU 

YES 

SET  TRACE  OPTION 
UPDATE  MENU 

+- 

YES 

TOGGLE  DISP.  STEP: 
UPDATE  MENU 

NO 


i    .YES 


SET  RETURN_TO 
UPDATE  MENU 


YES 


SET  GOTO 
UPDATE  MENU 


SET    CALL 
UPDATF  MFNU 


WAIT  FOR 
USER  INPUT 
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NO 

/ 

/,<-, 

1  >  5 

_s 

1  <-  hi 

' 

/ 

FALSE 

GET  BRK.  CNT.    *  1 
UPDATE  MENU 

1 

' 

GET  BRK.  POINT    '  1 
UPDATE  MENU 

■a 

i 

YES 


TRUE 


CLEAR  ALL  BRK.  PTS 
CLEAR  ALL  BRK.  CT5 


WAIT  FOR 
USER  INPUT 
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7-  FLOWCHART  FOR  OPTIONS  MENU 


DISPOSE  OPTIONS 
MENU 


[MAIN  \ 
V  MENUy 


f°pM 

V   MENUy 


DISPLAY  OPTIONS  MENU 


WAIT  FOR  USER  INPUT 


YES 


YES 


TOGGLE  HARDCOPY 
UPDATE  MENU 


YES 


TOGGLE  COPROC. 
UPDATE  MENU 


REFRESH  N 
SCREEN 


TOGGLE  REF.  SCRN. 
UPDATE  MENU 


TOGGLE  REF.  SCRN. 
UPDATE  MENU 
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8-  FLOWCHART  FOR  MONITOR  PROGRAM 


EXECUTE 
COMMAND 


RESET/POWER-UP 


INITIALIZE  THE  ECB. 


WAIT  FOR  COMMAND 
FROM  MACINTOSH 


NO 


JMP  TO  USER  PGM. 

AND 
START  EXECUTION, 
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APPENDIX  B:    MACINTOSH-ECB  INTERFACE  PROTOCOLS 


EXECUTION  OF  MEMORY  DISPLAY  COMMAND 


MACINTOSH 


ECB 


-  Send  memory  display  code 


Send  the  start_address  (4  bytes) 
of  the  memory  locations  which  are 
to  be  displayed. 


1-  Main  receives  memory_display_code, 
and  switches  program  execution  to 
MEMORY  DISPLAY  Routine. 


2-  Receive  the  start  address  (4  bytes) 


Send  byte_count  (1  byte)  which  is 
the  number_of_bytes  to  be 
displayed. 


-  Receive  memory   contents  (As  many 
as  byte_count  bytes) . 

-  Receive  checksum  byte. 


3-  Receive  byte_count  (1  byte) . 

4-  Read  from  memory  locations, 
starting  from  start_address,  and 
send  them  to  Macintosh,  one-by-one 
Meanwhile  calculate  the  checksum 
byte.  Checksum  is  calculated  by 
EXORing  the  outgoing  bytes . 


5-  Send  checksum  byte . 
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EXECUTION  OF  MEMORY  WRITE  COMMAND 


MACINTOSH 


ECB 


1-  Send  memory_modify_code 


2-  Send  the  operand_size  (width)  byte 
(1  byte) . 

3-  Send  the  address  of  the  memory 
location  to  be  modified  (4  bytes) . 


4-  Send  new  memory  contents  (1,  2  or 
4  bytes,  depending  on  the  width) . 


1-  Main  receives  memory_modify_code, 
and  switches  program  execution  to 
MEMORY  WRITE  Routine. 


2-  Receive  the  operand  size  (1  byte) 


3-  Receive  the  address  of  the  memory 
location  to  be  modified  (4  bytes)  , 


4-  Receive  new  memory  contents  and 
write  them  into  the  memory  locatio 
starting  from  memory_modif y  start 
address . 


5-  [If  "verify"  option  is  selected] 
Receive  new  memory  contents. 
(As  many  as  byte_count  bytes) . 


5-  [If  "verify"  option  is  selected] 
Read  from  memory  locations  and  sen 
them  to  the  Macintosh.  (As  many  as 
byte  count  bytes) . 
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EXECUTION  OF  DOWNLOAD  COMMAND 


MACINTOSH 


ECB 


1-  Send  download  code 


2-  Send  the  download_address . 
User  program  will  be  loaded 
starting  from  this  address. 
(4  bytes) . 


3-  Send  the  number_of_bytes  to 
be  downloaded. 
(2  bytes) . 


4-  Send  all  the  bytes  which  constitute 
the  user  program. 

Meanwhile  calculate  the  checksum. 
(As  many  as  number_of_bytes 
bytes  will  be  sent)  . 


5-  Send  the  checksum  byte 
(1  byte) . 


1- 


2- 


3- 


Main  receives  download_code,  and 
switches  program  execution  to 
DOWNLOAD  Routine. 


Receive  the  download_address 
(4  bytes) . 


Receive  the  number_of_bytes 
(2  bytes) . 


6-  Receive  MC68020  register  contents 
(96  bytes) . 

[If  "Coprocessor"  is  selected] 
Receive  MC68881  register  contents 
(108  bytes) . 


4- 


5- 


6- 


Receive  user  program,  byte  by  byte 
Meanwhile  calculate  the  checksum. 
(As  many  as  number_of_bytes 
bytes  will  be  received) . 


Receive  the  checksum  byte.  (The 
one  sent  by  the  Macintosh) . 
(1  byte) . 

Upload  MC68020  register  contents 
to  Macintosh.  (96  bytes) . 
[If  "Coprocessor"  is  selected] 
Upload  MC68881  register  contents 
to  Macintosh.  (108  bytes) . 
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EXECUTION  OF  GO  COMMAND 
MACINTOSH  ECB 

1-  Send  go_code . 

1-  Main  receives  go_code,  and  switches 
program  execution  to  GO  Routine. 

2-  Send  Display_Steps  (1  byte) . 

2-  Receive  Display_Steps  (1  byte) . 

3-  Send  all  the  Breakpoints,  starting 
from  Break_Point  #0.  (Four  bytes 
per  Breakpoint,  in  total  20  bytes)  . 

3-  Receive  Break_Point  addresses.  Four 
bytes  per  Break_Point .  (20  bytes). 

4-  Send  all  the  Break_Counts,  starting 
from  Break  Count  #0.  (Two  bytes  per 


Break  Count,  in  total  10  bytes) 


5-  Send  MC68020  register  contents. 

D0-D7,  A0-A6,  and  Control  registers 
(96  bytes) . 


6-  Send  checksum  byte  (1  byte) . 

7-  [If  "Coprocessor"  is  selected] 
Send  Coprocessor  register  contents 


4-  Receive  Break_Counts .  (Two  bytes  per 
Break_Count,  in  total  10  bytes) . 


5-  Receive  MC68020  register  contents. 
D0-D7,  A0-A6,  and  Control  registers 

(96  bytes) . 

6-  Receive  checksum  byte  (1  byte) . 


7-  [If  "Coprocessor"  is  selected] 
Receive  Coprocessor  register 
contents.  (108  bytes). 

8-  Start  the  execution  of  user  program. 
[When  user  program  execution  stops 

due  to  a  "Trace",  "Breakpoint", 
"Trap_15",  or  "RTS" . ] 
Upload  the  most  updated  register 
contents . 

(96  bytes,  if  MC68881  is  not 
selected) . 

(96+118  bytes,  if  MC68881  is 
selected) . 


I-  Receive  new  register  contents 
(96  bytes,  if  MC68881  is  not 

selected) . 
(96+118  bytes,  if  MC68881  is 

selected) . 
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APPENDIX  C:    SOURCE  CODE  OF  THE  DEBUGGER  PROGRAMS 


SOURCE    CODE    OF    MAIN    PROGRAM 


i-  Source  code  of  download. c 

/*   download. c    */ 


#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 
#def ine 

enum  { 
enum  { 
enum  { 


enum  { 
enum  { 


stoplO 

stopl5 

stop20 

noParity 

oddParity 

evenParity 

data7 

data  8 

baud300 

baud600 

baudl200 

baudl800 

baud2  4  00 

baud3600 

baud4800 

baud7200 

baud9600 

activeFlag 

changeFlag 

btnState 

cmdKe  y 

shiftKey 

alphaLock 

optionKey 

controlKey 

charCodeMask 


16384 

((int)  -32768) 

(-16384) 

0 

4096 

12288 

1024 

3072 

380 

189 

94 

62 

46 

30 

22 

14 

10 

0x0001 

0x0002 

0x0080 

0x0100 

0x0200 

0x0400 

0x0800 

0x1000 

OxOOOOOOFFL 


applelD  =  1,  filelD,  opt ID,  widthID,  incID  }; 

quit Item  =  1  } ; 

downltem  =  1,  Sbreakltem,  nulllltem,  regltem  ,  Fregltem, 

null2Item,  memitem, MemWitem, null3Item, 

Options,  Dumpltem, null4Item, clearltem,  helpltem  } ; 

documentProc,  dBoxProc,  plainDBox,  altDBoxProc,  noGrowDocProc, 

rDocProc  =  16  } ; 

f sCurPerm,  f sRdPerm,  f sWrPerm,  f sRdWrPerm,  f sRdWrShPerm  } ; 
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enum  { 
enum  { 

enum  { 

typedef 
typedef 


typedef    struct 


typedef 
typedef 
typedef 
typedef 
typedef 
typedef 
typedef 


typedef 
typedef 
typedef 
typedef 
typedef 
typedef 
typedef 


struct  { 
unsigned 
struct 
enum 


typedef    struct  { 


typedef    struct 


typedef 
char 


fsAtMark,  fsFromStart,  fsFromLEOF,  fsFromMark  } ; 

nullEvent,  mouseDown,  mouseUp,  keyDown,  keyUp,  autoKey,  updateEvt, 

diskEvt,  activateEvt  } ; 

inDesk,  inMenuBar,  inSysWindow,  inContent,  inDrag,  inGrow, 

inGoAway,  inZoomln,  inZoomOut  }; 

unsigned  char  Str255[256]; 

struct  {  char  cumErrs, xOf f Sent, rdPend, wrPend, ctsHold, 

xOf fHold  ; }  SerStaRec; 
{  int  menuID;  int  menuWidth,menuHeight ;  long  menuProc, 

enableFlags;  Str255  menuData;  }  Menulnfo, *  MenuPtr, 

*  *MenuHandle ; 
char  QDByte,  *QDPtr,  **QDHandle; 
struct  {  int  top, left, bottom, right  ;  }  Rect  ; 
struct  {  QDPtr  baseAddr;  int  rowBytes;  Rect  bounds;  }  BitMap; 

int  rgnSize;  RectrgnBBox;  }  Region,*  RgnPtr, **  RgnHandle, 

char  Pattern [8]  ; 
{  int  v,h;  }  Point  ; 
{  bold  =  1,  italic  =  2,  underline  =  4,  outline  =  8, 

shadow  =  16,  condense  =  32,  extend  =  64  }  Style; 

QDPtrtextProc;  QDPtrlineProc;  QDPtrrectProc; 

QDPtrrRectProc;  QDPtrovalProc; QDPtrarcProc; 

QDPtrpolyProc;  QDPtrrgnProc;  QDPtrbitsProc; 

QDPtrcommentProc;  QDPtrtxMeasProc;  QDPtrgetPicProc; 

QDPtrputPicProc;  }  QDProcs,*  QDProcsPtr; 
GrafPort  { 

int  device;  BitMap  portBits;  Rect  portRect; 

RgnHandle  visRgn;  RgnHandle  clipRgn;  Pattern  bkPat; 

Pattern  fillPat;  Point  pnLoc;  Point  pnSize; 

int  pnMode;  Pattern  pnPat;  int  pnVis; 

int  txFont;  Style  txFace;  int  txMode; 

int  txSize;  long  spExtra;  long  fgColor; 

long  bkColor;  int  colrBit;  int  patStretch; 

QDHandle  picSave;  QDHandle  rgnSave;  QDHandle 

QDProcsPtr  grafProcs;  }  GrafPort,  *  GrafPtr; 
GrafPtrWindowPtr; 
char  *  Ptr  ; 
int  (*ProcPtr) ()  ; 
intOsErr,  OSErr; 

unsigned  char  *  StringPtr,**  StringHandle  ; 
char  SignedByte  ; 
struct  { 

struct  QElem  *  qLink;  int  qType, ioTrap;  Ptr  ioCmdAddr; 

ProcPtr  ioCompletion;  OsErr  ioResult;  StringPtr  ioNamePti 

int  ioVRefNum, ioRefNum;  SignedByte  ioVersNum, ioPermssn; 

Ptr  ioMisc, ioBuf f er ;  long  ioReqCount , ioActCount ; 

int  ioPosMode;  long  ioPosOffset; 

}  ioParam,  IOParam  ; 
struct  EventRecord  {  int  what;  long  message, when; 

Point  where;  int  modifiers;  } EventRecord; 
c, inst ring [255] , inbuf [3001] ,E  bytes [20] , fregs [20] [8] ; 
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char       Que_buf [2000] , *Head, *Tail, *EndQue, *StartQue; 

char       Display Steps, ReturnTo=2,ErrorFlag=0x00, CameFmGo=0; 

char      prnstring [12  8] , prninbuf [3001] ,prnoutbuf [2500] ,clrscn; 

char      ManSign[8] , ExpSign[8] ,  Fbuf [12] , Ref Scrn, OurEvent=0,Reach=l; 

int        ByteCount, LastLocCount , scrollsize, LocCount , BreakTimes [5]  , Clear; 

long       registers [2  4] , f cregs [3] , Breaks [5] , from, to, at ; 

SerStaRec  SerRec  ; 

WindowPtr  DisplayWindow; 

Rect       windowBounds,myRect, ClrRect ; 

RgnHandle  myRgn; 

ioParam   pbin, pbout, prnbout , prnbin; 

MenuHandle  appleMenu,  fileMenu,  optionMenu; 

extern  void  Error(char  *,char  *,char  *,char  *) ; 

extern  void  LastScreen  (int ) ; 

extern  void  printhex (long, int) ; 

extern  void  DrawChar  (char) ; 

extern  GrafPtr    thePort; 

pascal  MenuHandle  NewMenu ( ) ; 

pascal  WindowPtr  NewWindow ( ) ; 

pascal  RgnHandle  NewRgn ( ) ; 

extern  BitMapscreenBits; 

extern  char  *start, *end, Coprocessor, Experienced; 

extern  int  origin; 

main  ()  { 
int  i , j ; 

/*  Initialize  Macintosh  Environment  */ 

MaxApplZone ( ) ; 
InitGraf (SthePort) ; 
InitFonts  ( ) ; 
FlushEvents (OxFFFF,  0) ; 
InitWindows ( ) ; 
InitMenus ( ) ; 
TEInit  () ; 
InitDialogs (0L) ; 
InitCursor  () ; 

/*  Initialize  Menus  */ 


;nu (appleMenu  =  NewMenu (applelD,  "\p\024") ,  0) ; 
snu(fileMenu  =  NewMenu (filelD,  "\pFile"),  0) ; 
snu (optionMenu  =  NewMenu (opt  ID,  "\pFunctions")  , 
aBar  ()  ; 


InsertMei 
InsertMei 

InsertMenu (optionMenu  =  NewMenu (opt ID,  "\pFunctions")  ,  0) 
DrawMenuBar ( )  ; 

AddResMenu (appleMenu,  ' DRVR' ) . 
AppendMenu (fileMenu,  "\pQuit/Q") ; 

AppendMenu (optionMenu,  "\pDownload/D;Go. . . /G; -(; Registers . . ./R;Floating 
Regs . . . /F; - ( ; Memory  Display. . . /M;MemoryWrite . . . /W; - ( ; 
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Options/0;Previous  Screen/P; - ( ;Clear  Screen/C; Help/H; " ) ; 

/*  Initialize  Screen  */ 

myRect . lef t=4 /   windowBounds . lef t=8 ; 

myRect .top=0;    windowBounds . top=4  0; 

myRect . right   =  (windowBounds . right=screenBits .bounds . right-8) -8; 

myRect .bottom  =  (windowBounds .bottom=screenBits .bounds .bottom- 8) -4; 

DisplayWindow  =  NewWindow (OL,  & windowBounds,  "\pDisplay" , 

1, noGrowDocProc,  -1L,  1,  0) ; 
SetPort (DisplayWindow) ; 
MoveTo (4, myRect .bottom-4  0) ; 
TextFont  (4) ; 
TextSize (scrollsize=9) ; 
SetRectRgn  (myRgn=NewRgn  0,0,0,0,0); 

/*  Initialize  Printer  Port  */ 

prnbin . ioPermssn=f sRdPerm; 

prnbin . ioNamePtr=  (StringPtr) "\p . Bin" ; 

prnbin . ioVRefNum  =  0; 

prnbin . ioVersNum=  0; 

prnbin . ioMisc  =  0L; 

prnbin . ioBuffer  =  prnstring; 

PBOpen (&prnbin, 0) ; 

prnbout . ioPermssn=f sWrPerm; 

prnbout . ioNamePtr  =  (StringPtr) "\p . BOut" ; 

prnbout . ioVRefNum  =  0; 

prnbout . ioVersNum=  0; 

prnbout . ioMisc  =  0L; 

PBOpen (&prnbout,  0)  ; 

prnbout . ioPosMode  =  prnbin . ioPosMode  =  fsAtMark; 

prnbout . ioPosOff set  =  prnbin . ioPosOff set  =  0; 

prnbin . ioRefNum  =  -8; 

prnbout . ioRefNum  =  -9; 

prnbout . ioBuffer  =  prnoutbuf ; 

prnbout . ioReqCount  =  1; 

SerReset (-8,baud9600+noParity+stop20+data8) ; 

SerReset (-9,baud9600+noParity+stoplO+data8) ; 

SerSetBuf (-8,prninbuf , 3000) ; 

/*  Initialize  Modem  Port  */ 

pbin . ioPermssn=f sRdPerm; 

pbin . ioNamePtr=  (StringPtr) "\p.AIn" ; 

pbin . ioVRefNum  =  0; 

pbin . ioVersNum=  0; 

pbin. ioMisc  =  0L; 

pbin . ioBuffer  =  instring; 

PBOpen (&pbin, 0) ; 
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pbout . ioPermssn=f sWrPerm; 

pbout .ioNamePtr  =  (StringPtr) "\p . AOut "; 

pbout . ioVRefNum  =  0; 

pbout . ioVer sNum=  0 ; 

pbout. ioMisc  =  0L; 

PBOpen (&pbout,  0)  ; 

pbout . ioPosMode  =  pbin . ioPosMode  =  fsAtMark; 

pbout . ioPosOff set  =  pbin . ioPosOff set  =  0; 

pbin . ioRefNum  =  -6; 

pbout . ioRefNum  =  -7 ; 

pbout . ioBuffer  =  &c; 

pbout . ioReqCount  =  1; 

SerReset (-6,baud9600+noParity+stop20+data8) / 

SerReset (-7, baud9600+noParity+stop20+data8) ; 

SerSetBuf (-6, inbuf , 3000) / 

for (i=0;i<20;i++) 

for(j=0; j<8; j++)  fregs[i] [j]-'0'; 
for(j=0; j<8; j++)  { 

ManSignf j]=' +' ; 

ExpSign[ j]=' +' ; 

} 
test  () ; 

Head=Tail=&Que_buf  [0] / 
EndQue=&Que_buf [1999] ; 
*EndQue=0x00; 
Start Que=&Que_buf [0] / 
Dassy () ; 

for  (;;)  HandleEvent () / 
} 


/ *   HANDLE_EVENT ( ) 

function : 

-  This  function  handles  the  events 
arguments : 

-  theEvent 
called  by: 

-  HandleEvent ( ) /download . c 
calls     : 

-  HandleMouseDown () /download. c 

-  Stop_n_Flush () /download. c 

-  doFunct  ion ( ) /menu . c 

*/ 

HandleEvent () 

{ 

EventRecord  theEvent; 

WindowPtr   theWindow; 
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int       windowCode, ok, i; 
long  1; 

if (ReturnTo==0)  doFunction (2) ; 
if (ReturnTo==l)  doFunction (4) ; 
SerStatus  (-6,&SerRec)  ; 
if (SerRec . cumErrs  ==  64  )  { 

Error ("\pError  in  Transmission !", "\p   Try  Again .  ..", "\p", "\p") ; 

Stop_n_Flush () ;   }   /*  Discard  the  input  while  looping  outside  menu.  */ 
if ( ! Coprocessor) 

DisableItem(optionMenu,  5)  ; 
else 

Enableltem (optionMenu,  5)  ; 
HiliteMenu (0)  ; 
SystemTask  ()  ; 
if  (ok  =  GetNextEvent  (Oxffff,  &theEvent) )  { 

switch  (theEvent . what)  { 
case  mouseDown:  HandleMouseDown (&theEvent) ;break; 
case  keyDown:  case  autoKey: 

if  ( (theEvent .modifiers  &  cmdKey)  !=  0)  { 

HandleMenu (MenuKey ( (char)  (theEvent .message  &  charCodeMask) ) ) ; 

} 
else 

send (c=theEvent .message  &  charCodeMask); 
break; 
case  updateEvt :  if(clrscn)  { 

BeginUpdate (DisplayWindow)  ; 

SetPort (DisplayWindow) ;  EraseRect (&myRect) ; 
EndUpdate (DisplayWindow)  ; 
} 
if(OurEvent)  { 

if ( ! Ref Scrn)  Clear=2 ; 
LastScreen (Clear)  ; 
OurEvent=0; 
}  break; 
case  activateEvt :  InvalRect (&DisplayWindow->portRect) ; 

break; 


} 


/*   HANDLE_MOUSE_DOWN() 

function : 

-  This  function  handles  mouse  down   operations, 
arguments : 

-  theEvent 
called  by: 

-  HandleEvent () /download. c 
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calls     : 

-  None 

*/ 

HandleMouseDown (theEvent)  EventRecord    *theEvent; 

{ 

WindowPtr  theWindow; 

int        windowCode  =  FindWindow  (theEvent->where,  &theWindow) ; 

switch  (windowCode)  { 

case  inSysWindow:  SystemClick  (theEvent,  theWindow) ;  break; 
case  inMenuBar:  HandleMenu (MenuSelect (theEvent->where) ) ;  break; 
case  inGoAway :  if (theWindow==DisplayWindow&&TrackGoAway (DisplayWindow, 
theEvent->where) )  HideWindow (DisplayWindow) ;   break; 
} 
} 

/*   HANDLE_MENU ( ) 

function : 

-  This  function  handles  menu  operations, 
arguments : 

-  mSelect 
called  by: 

-  HandleEvent () /download. c 

-  HandleMouseDown () /download. c 


calls 


doFunct  ion ( ) /menu . c 


*/ 

HandleMenu  (mSelect)  long  mSelect; 

{ 

int  menuID  =  HiWord (mSelect) ; 

int  menultem  =  LoWord (mSelect) ; 

Str2  55  name; 

GrafPtr  savePort; 

long  1; 

switch  (menuID)  { 

caseapplelD:  GetPort (SsavePort ) ;  GetItem(appleMenu,  menultem,  name); 

OpenDeskAcc (name) ;  SetPort (savePort) ;  break; 
casefilelD : 
switch  (menultem)  { 
casequitltem:  ExitToShell ( ) ; 
break; 
}  break; 
caseoptID:  doFunction  (menultem);  break; 
} 
} 
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/*   SENDO 

function : 

-  This  function  displays  a  byte  on  the  Macintosh  screen, 
arguments : 

-  a 
called  by: 

-  go () /monitor . c 

-  DownLoad () /monitor . c 

-  memdisp () /monitor . c 

-  wmem( ) /monitor . c 

-  DisAsm() /monitor . c 

-  SendRegs () /monitor . c 

-  HandleEvent () /download. c 
calls     : 

-  None 

*/ 

send (a)  char  a; 

{ 

long  1; 

c=a; 

PBWrite (&pbout, 0) ; 

Delay (1L,&1) / 

} 

/*   SEND_PRN() 

function : 

-  This  function  sends  a  byte  to  the  serial  printer  output 
arguments : 

-  a 
called  by: 

-  DumptoPrn () /Monitor . c 
calls     : 

-  None 

*/ 

sendprn(a)  char  a; 

{ 

long  1/ 

prnoutbuf [0] =a; 
PBWrite ( &prnbout ,  0 )  ; 
Delay (1L,  &1)  / 
} 
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/*   COPY_REGS() 

function : 

-  This  function  receives  and  copies  the  updated  Register 
Information  which  are  sent  by  the  ECB . 

arguments : 

called  by: 

-  go () /monitor . c 

-  DownLoad () /monitor . c 
calls     : 

-  None 

*/ 

CopyRegs () 

{ 

char  instring2[4]  ; 

int  j,m=0,k=0  ; 

while  (m<24)  { 

registers [m] =  0  ; 
for  (j=0; j<4; j++)  { 

instring2 [ j] =instring [k] ;  k++; 

} 
for  (j=0; j<4; j++) 

registers  [m]  =  (in  string2[j]&0xff)  +  (  register  s[m]«  8)  ; 

m+  + 
} 
} 

/ *   COP Y_BRK_CNTS ( ) 

function : 

-  This  function  receives  and  copies  the  updated  Break  Counts 
which  are  sent  by  the  ECB. 

arguments : 

called  by: 

-  go ( ) /monitor. c 
calls     : 

-  None 

*/ 

CopyBrkCnts  () 

{ 

char  instring2  [2] ; 

int   j,m, k=96, TempLoc; 
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for(j=0; j<5; j++)  { 
TempLoc=0 ; 
for (m=0;m<2/m++) { 

instring2 [m] =instring [k]  ;  k++  ; 

} 
for (m=0;m<2;m++)  TempLoc= (instring2 [m] &0xf f ) + (TempLoc<<8) ; 
if ( (TempLoc==0) && (BreakTimes [ j] >=1) )  BreakTimes [ j]=l; 
else 

BreakTimes [ j ] =TempLoc ; 
} 
} 

/*   INPUT_BUFFER ( ) 

function : 

-  This  function  checks  modem  input,  and  waits  until  'hit' 
bytes  are  received. 

arguments : 

-  hit 
called  by: 

-  DownLoad () /monitor  .  c 

-  go () /monitor  .  c 

-  memdisp () /monitor . c 

-  wmem () /monitor . c 

-  DisAsm( ) /monitor . c 
calls     : 

-  None 

*/ 

InputBuf fer  (hit) 
int  hit  ; 

{ 

char  c; 
int  n ; 
long  l,m; 

for(;  ;)  { 

SerGetBuf (-6, &1) ; 
if(l>=hit)  break  / 
} 
if(l!-0)  { 

HiliteMenu (f ilelD)  ; 

if  (1>255)  1=255;  pbin . ioReqCount  =  1;   PBRead (&pbin, 0) ; 
} 
} 

/*   CHECK  ERROR () 
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function : 

-  This  function  checks  to  see  whether  an  error  occurred  or 
not,  during  data  transmission. 

arguments : 

called  by: 

-  DownLoad () /monitor . c 

-  go () /monitor. c 

-  memdisp () /monitor . c 

-  wmem( ) /monitor . c 

-  SendRegs () /monitor . c 


calls 


-  Stop_n_Flush () /download. c 

-  Error () /download. c 


*/ 

CheckError () 

{ 

int   n ; 

for (n=0;n<32767;n++) ; 
SerStatus  (-6, SSerRec) ; 
if  (SerRec . cumErrs  ==64)  { 

Error ( "\pError  in  Transmission !", "\p   Try  Again ...", "\p" , "\p") / 

ErrorFlag=l; 

Stop_n_Flush () ; 

} 
} 

/*   STOP_N_FLUSH ( ) 

function : 

-  This  function  stops  receiving  from  modem  input,  discarding  the 
previously  received  data. 

arguments : 

called  by: 

-  DownLoad () /monitor . c 

-  go () /monitor . c 

-  memdisp () /monitor . c 

-  dump () /monitor . c 

-  doFunction () /menu .c 

-  CheckError () /download. c 

-  HandleEvent () /download. c 


calls 


-  None 
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Stop_n_Flush  () 

{ 

long  1; 

PBKillIO(&pbin,  0)  ; 
SerGetBuf (-6,  &1)  ; 
if(l!=0)  { 

pbin . ioReqCount  =  1; 

PBRead(&pbin,  0)  ; 

} 
} 
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Source  code  of  menu . c 


/' 


Menu . c 


#define 
#def ine 

typedef 
typedef 
typedef 
typedef 
typedef 
typedef 
typedef 
typedef 

typedef 


typedef 


typedef 
typedef 
typedef 
typedef 


typedef 
typedef 

pascal 
enum  { 


enum  { 

extern 
extern 
extern 
extern 
extern 
extern 


7 

NULL 
everyEvent 


OL 
OxFFFF 


int  (*ProcPtr) ()  ; 

struct  {  inttop, left, bottom, right  ;  }  Rect  ; 

char  QDByte,  *QDPtr,  **0_DHandle; 

struct  {  QDPtrbaseAddr;  introwBytes;  Rectbounds;  }  BitMap; 

struct  {  intrgnSize;  RectrgnBBox;  }  Region,*  RgnPtr,**  RgnHandle; 

struct  {  intv,h;  }  Point  ; 

unsigned  char  Pattern [8]; 

enum  {  bold  =  1,  italic  =  2,  underline  =  4,  outline  =  8, 

shadow  =  16,  condense  =  32,  extend  =  64  }  Style; 
struct  {  QDPtrtextProc, lineProc, rectProc, rRectProc, ovalProc, 

arcProc,polyProc, rgnProc, bitsProc, comment P roc, txMeasProc, 
getPicProc,putPicProc; }  QDProcs,*  QDProcsPtr; 
structGrafPort  {int  device; BitMap  portBits;Rect  portRect; 

RgnHandle  visRgn, clipRgn;  Pattern  bkPat, f illPat ; 

Point  pnLoc,pnSize;  int  pnMode;  Pattern  pnPat; 

int  pnVis, txFont ;  Style  txFace;  int  txMode, txSize; 

long  spExtra, f gColor,bkColor;  int 

colrBit, pat St retch ; 

QDHandle  picSave, rgnSave, polySave; 

QDProcsPtr  grafProcs;  }  GrafPort,  *  GrafPtr; 
GrafPtr    WindowPtr; 
char  **  Handle  ; 
unsigned  char  Str255 [256] ; 

struct  {  int  menuID,menuWidth,menuHeight;  Handle  menuProc; 
long  enableFlags;  Str255menuData; 
}  Menulnfo, *  MenuPtr,  **  MenuHandle; 
WindowPtr  DialogPtr  ; 
struct  EventRecord  {  int  what;  longmessage,  when;  Pointwhere; 

int  modifiers;  }  EventRecord; 
DialogPtr  GetNewDialog () ; 

downltem  =  1,  Sbreakltem,  nulllltem,  regltem  , 
Fregltem,  null2Item,  memitem, MemWitem, null3Item, 
Options,  Dumpltem, null4Item, clearltem,  helpltem  }; 
applelD  =  1,  filelD,  optID,  widthID,  incID  }; 

char  ManSign [8] ,ExpSign [8] ,Fbuf [12] ,OurEvent,  DisAsmOutBuf [81] ; 

long  StaDisAdr, EndDisAdr; 

intBreakTimes [5] , Clear; 

long  registers [24 ] , Breaks [5] , f cregs [3] , from, to, at ; 

char  fregs[20] [8] , clrscn, instring [255] , DisplaySteps ; 

char  ReturnTo,CameFmGo,Que  buf [2000] , *Head, *Tail, *EndQue, Ref Scrn; 
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extern     WindowPtr  Display-Window; 

extern     Rect  windowBounds,myRect, ClrRect; 

extern     SerRec  ; 

char       verify, WillGoTo=l,Dis Assemble, PrintBuf [2500] , Experienced=0; 
char       GoToReg, Coprocessor, NotAfterGo=0, Brk_Flag, Hardcopy=0; 
char       t[]=  "PC=.SR=.USP=.SSP=.ISP=.D0=.  Dl=.  D2=.  D3=.D4=.  D5= 

D6=.  D7=.A0=.  Al=.  A2=.  A3=.A4=.  A5=.  A6= .  A7=."; 
long      value  , tempvalue  ; 

DialogPtr  dp; 

print (char  *) ; 

DownLoad(int) ; 

dump (void) ; 

LastScreen (int) ; 

FillQue(int)  ; 

DisAsm( ) ; 

Stop_n_Flush ( ) ; 

wmemory (int , int ) ; 

go (void) ; 

DumptoPrn (int) ; 

DumptoScreen (int, char  *); 

help (void) ; 

ltoa (  long  ,  char  *,  int); 

itoa  (  int  ,  char  *) ; 

atol  (char  *) ; 

atoi (char  *) ; 

printhex ( long, int ) ; 

prnthex2 (long, int, int) ; 

CheckHex (int, int) ; 

CheckDec (int, int, int) ; 

Error (char  *,char  *,char 


DO_FUNCTION() 

function  : 

-  This  function  provides  user  interface  to  the  debugger. 
Selection  of  a  particular  menu,  such  as  registers  menu  or  Go 
menu,  etc.,  display  of  that  menu,  and  the  user's  manipulation 
of  the  fields  in  that  menu,  the  update  of  that  menu,  etc.,  the; 
are  all  provided  by  DO_FUNCTION ( ) . 

arguments : 

-  theltem 
called  by: 

-  HandleEvent () /download. c 

-  HandleMenu () //download. c 
calls     : 

-  DownLoad ( ) /monitor . c 


extern 

void 

extern 

void 

extern 

void 

extern 

void 

extern 

void 

extern 

void 

extern 

void 

extern 

void 

extern 

void 

extern 

void 

extern 

void 

extern 

void 

extern 

void 

extern 

void 

extern 

long 

extern 

long 

extern 

void 

extern 

void 

extern 

void 

extern 

void 

extern 

void 
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-  dump () /monitor . c 

-  FillQue () /monitor . c 

-  CheckHex ( ) /menu . c 

-  CheckDec ( ) /menu .c 

-  printhex2 ( ) /Monitor . c 

-  Stop_n_Flush () /download. c 

-  Error () /menu . c 

-  ltoa () /monitor . c 

-  atol () /monitor . c 

-  itoa () /monitor . c 

-  atoi () /monitor . c 

-  help () /monitor . c 

-  wmem( ) /monitor . c 

-  DisAsm( ) /monitor . c 

-  DumptoPrn (i) /monitor . c 

-  LastScreen () /monitor . c 

*/ 

doFunction  (theltem)  int  theltem; 
{ 

char       number [21] ,  s [21 ]  ; 

static    char  width=l, step=l; 

int        i, j, type, change, first, k, mad; 

long       1 ; 

Handle     itemh; 

EventRecord     myEvent; 

Rect      textbox; 

clrscn=l; 

switch (theltem)  { 

case  downltem: 

DownLoad(O);    break; 
case  Dumpltem: 

LastScreen (1) ;  break; 
case  regltem: 

dp=GetNewDialog(12  9,NULL, -1L)  ; 
SetPort (dp) ;change=l; 
for (i=0;i<24; i++)  { 

if (i==19) ltoa (registers [i] , number, 4) ; 
else  if (i==23) ltoa (registers [i] , number, 2) ; 
else  ltoa (registers [i] , number, 8) ; 

GetDItem (dp, i+2, &type, &itemh, &textbox) ;  SetlText (itemh, number) ; 
} 
SellText (dp, 2, 0, 32000) ; 
do{ 

SystemTask  () ; 

GetNextEvent (everyEvent, &myEvent) ; 
if (change)  { 

GetDItem (dp, 45, Stype, & itemh, & text box) ; 
SetCtlValue (itemh, registers [19] &0x010) ; 
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GetDItem (dp, 4  6, &type, &itemh, &textbox) 

SetCtlValue (itemh, registers [19]  &8)  ; 

GetDItem(dp, 47, &type, &itemh, &textbox) 

SetCtlValue (itemh, registers [19] &4)  ; 

GetDItem (dp, 4  8, &type, & itemh, & text box) 

SetCtlValue (itemh, registers [19] &2)  ; 

GetDItem (dp, 4  9, &type, &itemh, &textbox) 

SetCtlValue (itemh, registers [19]  &1)  ; 

GetDItem(dp, 50, &type, &itemh, &textbox) 

if ( ( (registers [19] &  0x3 000) ==0x2  000) && (Experienced) ) 

SetCTitle (itemh, "\pSupervisor")  ; 
else 

if ( ( (registers [19] &0x3000) ==0x3000) && (Experienced) ) 

SetCTitle (itemh, "\plnterrupt" )  ; 
else 

SetCTitle (itemh, "\pUser")  ; 
GetDItem (dp, 51, &type, & itemh, & text box) / 
i=  (registers  [19]  »8)  &7; 
ltoa (  (long) i, number, 1) ; 
SetCTitle (itemh, number) ; 
} 
if  (change==l)  { 

ltoa (registers [19] , number,  4)  ; 

GetDItem (dp, 21, &type, & itemh, & text box) ;  SetlText (itemh, number) / 
} 
ModalDialog (NULL, &theltem) ; 

if (theltem==53)  {      /*  If  ClearAll  then  Clear  Registers  D0-A6  */ 
ltoa (0L, number, 8) ; 
for (i=0;i<=14/i++)   { 

GetDItem  (dp, i+2, &type, &itemh, &textbox)  ; 
SetlText (itemh, number) ; 
} 
} 
if  (  (theltem<26)  &&  (theltemM)  )  CheckHex  (theltem,  8)  ; 
change=0; 
if (theltem==21)  { 

GetDItem  (dp, 21, &type, & itemh, & text box)  ;  GetlText (itemh, number)  / 

registers [19] =atol (number) / 

if  (  (  (registers  [19]  & 0x00 00 Of  00)  »8)  >=4)  { 

Error ( " \plnterrupt  level  >=4        ","\pwill  crash  the  system", 

"\p", "\p") ; 
registers [ 19] =( (registers [19] &0xf f f f f Of f ) | 0x00000300) ; 
ltoa (registers [19]  ,  number,  4)  ; 
GetDItem (dp, 21, &type, & itemh, & text box) ; 
SetlText (itemh, number) ; 

} 

change=2 ; 
if  (  (  JExperienced)  &&  (  (registers  [19]  »12)  !=0)  )  { 
registers [19] =registers [19] &0xcf f f ; 
change=l; 
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} 
} 

if (theltem==45)  {  registers [19]  =  registers [19]  A  0x10;  change=l;} 
if (theltem==46)  {registers [19]  =  registers [19]  A  8/  change=l;} 
if (theltem==47)  {registers [19]  =  registers [19]  A  4;  change=l;} 
if (theltem==48)  {registers [19]  =  registers [19]  A  2;  change=l;} 
if (theltem==4  9)  {registers [19]  =  registers [19]  A  1;  change=l;} 
if (theltem==50)  { 
if (Experienced) { 

i=(registers  [19]»12)  &0x07;  i=(i  +  l)%4;  i=i«12; 

registers [19]  =  (registers [19]  &  0xcfff)|i; 

} 
else  registers [19]  =  (registers [19]  &  Oxcf ff ) ; 
change=l; 

} 

if (theltem==51)  { 

i=(registers  [19]»8)  &7; 

i=(i+l)&7; 

i=(i«8)  &0x0700;  j=registers  [19]  &Oxf 8ff ; 

registers [19]  =  j|i; 

if  (  (  (registers  [19]  & 0x0000 Of  00)  »8)  >=4)   { 

Error ("\plnterrupt  level  >=4        ","\pwill  crash  the  system", 

"\p", "\p") ; 
registers [19] = (registers [19] &0xf f f f f Of f ) | 0x00000300; 
} 
change=l; 

} 
}  while ( (theltem  !=  1) && (theltem  !=  54)); 
for (i=0;i<24;i++)  { 

GetDItem (dp, i+2, &type, &itemh, &textbox) ;  GetlText (itemh, number) ; 
registers [i] =atol (number) ; 

} 
if ( (theltem==54) && (CameFmGo) )  { 
ReturnTo=l; 
go  ( )  ; 

} 
else 

if (CameFmGo)  ReturnTo=0; 

else   ReturnTo=2; 
DisposDialog (dp) ; 
SetPort (DisplayWindow) ; 
Clear=0  ;  OurEvent=l; 
break; 
Fregltem: 

dp=GetNewDialog (133, NULL,  -1L)  ; 
SetPort (dp) ; 

SellText (dp, 2, 0, 32000) ;  change=l; 
for (i=0;i<8;i++)  { 
number [0] =17 ; 
for ( j=0; j<17; j++)  number [ j+1] =fregs [ j] [i] ; 
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&type, &itemh, Stextbox) ;  SetlText (itemh, number) 


SetlText  (itemh,  number), 
SetlText (itemh, number) 
;  SetlText (itemh, numbei 


GetDItem(dp, 2* (1+i) 

number [0] =3/ 

for ( j=0; j<3; j++)  number [ j+1] =fregs [ j+17] [i] / 

GetDItem (dp, 2* (1+i) +1, &type, Sitemh, &textbox) ; 

number [0] =1;  number [l]=ManSign [i] ; 

GetDItem (dp, 2* (17+i) , &type, Sitemh, &textbox) ; 

number [0] =1;  number [1] =ExpSign [i] ; 

GetDItem (dp, 2* (17+i) +1, &type, &itemh, &textbox) 

} 
for (i=0;i<3;i++) { 

ltoa (f cregs [i] , number, 8) ; 

GetDItem (dp, i+18, &type, Sitemh, &textbox) /  SetlText (itemh, number) 
} 
do{ 

SystemTask () / 

GetNext Event (everyEvent, &myEvent) / 
if (change)  { 

GetDItem (dp, 52, &type, &itemh, &textbox) ; 

SetCtlValue (itemh,  ( (f cregs [0] »1) &0x00004000)  )  ; 

GetDItem (dp, 53, &type, &itemh, &textbox) 

SetCtlValue (itemh, fcregs [0] &0x004000) 

GetDItem (dp, 54, &type, & itemh, & text box) 

SetCtlValue (itemh, fcregs [0] &0x002000) 

GetDItem (dp, 55, &type, & itemh, &textbox) 

SetCtlValue (itemh, fcregs [0] &0x001000) 

GetDItem(dp, 56, &type, &itemh, &textbox) 

SetCtlValue (itemh, fcregs [0] &0x000800) 

GetDItem(dp, 57, &type, &itemh, &textbox) 

SetCtlValue (itemh, fcregs [0] &0x000400) 

GetDItem(dp, 58, &type, &itemh, &textbox) 

SetCtlValue (itemh, fcregs [0] &0x000200) 

GetDItem(dp, 59, &type, &itemh, &textbox) 

SetCtlValue (itemh, fcregs [0] &0x000100) 

GetDItem(dp, 60, &type, &itemh, &textbox) 

SetCtlValue (itemh, (fcregs [1] »24) &0x08) 

GetDItem (dp, 61, &type, &itemh, Stextbox) ; 

SetCtlValue (itemh, (fcregs [1] »24) &0x04) 

GetDItem (dp, 62, &type, & itemh, Stextbox) / 

SetCtlValue  (itemh,  (fcregs  [1]»24)  &0x02) 

GetDItem(dp, 63, &type, &itemh, &textbox) / 

SetCtlValue  (itemh,  (fcregs  [1]»24)  &0x01) 

} 
if  (change==l) { 

ltoa (fcregs [0] , number, 4) ; 

GetDItem (dp, 18, &type, &itemh, &textbox) ; 

ltoa (fcregs [ 1] , number, 8) ; 

GetDItem (dp, 19, &type, &itemh, &textbox) ; 

ltoa (fcregs [2] , number,  8) ; 

GetDItem (dp, 20, &type, &itemh, &textbox) ; 

} 


SetlText (itemh, number) 
SetlText (itemh, number) 
SetlText (itemh, number) 
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GetlText (itemh, number) 


GetlText (itemh, number) 


ModalDialog (NULL, stheltem) ; 

if ( ( (theltem<17) && (theltem>l) ) && ( (theltem   %   2)==0))    CheckHex (theltem, 17)  ; 

if  (  (  (theltem<18)  &&  (theltem>2)  )  &&  (  (  (theltem+l)  %2)=  =  0)  ) 
CheckHex (theltem, 3) ; 

if ( (theltem<50) && (theltem>33) )    CheckDec (theltem, 1,1); 
change=0; 
if (theltem==18) 

GetDItem(dp, 18, 

f cregs [0] =atol 

} 
if (theltem==19) 

GetDItem(dp, 19, 

f cregs [ 1 ] =atol 

} 

if (theltem==53) 
if (theltem==54) 
if (theltem==55) 
if (theltem==56) 
if (theltem==57) 
if (theltem==58) 
if (theltem==52) 
if (theltem==59) 
if (theltem==60) 
if (theltem==61) 
if (theltem==62) 
if (theltem==63) 


&type, &itemh, &textbox) 
number);  change=2; 


&type, Sitemh, &textbox) 
number);  change=2; 


f cregs [0] 
f cregs [0] 
f cregs [0] 
f cregs [0] 
f cregs [0] 
f cregs  [0] 
f cregs [0] 
f cregs [0] 
f cregs [1] 
f cregs [1] 
f cregs [1] 
f cregs [1] 


fcregs [0] 
f cregs [0] 
fcregs [0] 
fcregs [0] 
fcregs [0] 
fcregs [0] 
fcregs [0] 
fcregs [0] 
fcregs [1] 
fcregs [1] 
fcregs [1] 
fcregs  [1] 


0x004000, 

0x002000, 

0x001000( 

0x000800 

0x000400, 

0x000200 

0x008000 

0x000100, 

0x08000000; 

0x04000000; 

0x02000000; 

0x01000000; 


change=l 
change=l 
change=l 
change=l 
change=l 
change=l 
change=l 
change=l 
change=l 
change=l 
change=l 
change=l 


}  while (theltem  !=  1)  ; 
for (i=0;i<8;i++)  { 

GetDItem (dp, 2* (1+i) , Stype, &itemh, Stextbox) ;  GetlText (itemh, number) ; 

for ( j=0; j<17; j++)  fregs [ j] [i] =number [ j+1] ; 

GetDItem (dp, 2* (1+i) +1, &type, &itemh, Stextbox) ;  GetlText (itemh, number) ; 

for ( j=0; j<3; j++)  fregs [ j+17] [i] =number [ j+1] ; 

} 
for (i=0;i<3;i++) { 

GetDItem (dp, i+18, Stype, &itemh, Stextbox) ;  GetlText (itemh, number) ; 
fcregs [i] =atol (number) ; 

} 

for (i=0;i<16;i+=2) { 

GetDItem (dp, 34+i, &type, &itemh, Stextbox) ;  GetlText (itemh, number) ; 
ManSign [i/2] =number [1] ; 

GetDItem (dp, 34+i+l, &type, &itemh, Stextbox) ;  GetlText (itemh, number) ; 
ExpSign [ i/2 ] =number [ 1] ; 

} 

DisposDialog (dp) ;  SetPort (DisplayWindow) ; 
Clear=0;  OurEvent=l; 
break; 
case  memitem: 
first=l; 
dp=GetNewDialog (130, NULL, -1L) ;  SetPort (dp) ;change=0; 
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ltoa (from, number, 8) ; 

GetDItem(dp, 2,  &type, &itemh, &textbox) ;  SetlText ( it emh, number) ; 

ltoa (to, number, 8) ; 

GetDItem(dp, 3, &type, &itemh, &textbox) /  SetlText (itemh, number) ; 

ltoa (to-f rom, number, 8) ; 

GetDItem(dp, 4, &type, &itemh, Stextbox) ;  SetlText (itemh, number) ; 

GetDItem (dp, 9, &type, &itemh, &textbox) ;  SetCtlValue (itemh, DisAssemble)  ; 

SellText (dp, 2, 0,32000) ; 

do{ 

if (change==l) { 

ltoa (to-f rom, number, 8) ; 

GetDItem (dp, 4, &type, &itemh, &textbox) ;  SetlText (itemh, number) ; 

} 
if (change==2) { 

ltoa (to, number, 8) ; 

GetDItem (dp, 3, &type, &itemh, Stextbox) ;  SetlText (itemh, number) ; 

} 
SystemTask () ; 

Get Next Event (everyEvent, &myEvent) ; 
ModalDialog (NULL, Stheltem) ; 
change=0; 
if (theltem==2)  { 

GetDItem (dp, 2, &type, & itemh, Stextbox) ;  Get I Text (itemh, number) / 

from=atol (number) ;change=l; 

} 
if (theltem==3)  { 

GetDItem (dp, 3, &type, &  it emh, &textbox) ;  Get I Text (itemh, number) ; 
to=atol (number) ;change=l; 
} 
if (theltem==4)  { 

GetDItem (dp, 4 , Stype, Sitemh, &textbox) ;  GetlText (itemh, number) ; 

to=atol (number) +f rom; change=2 ; 

} 
if ( (first&&DisAssemble) | | (theltem==9) )  { 

GetDItem (dp, 9, &type, &itemh, &textbox)  ; 

SetCtlValue (itemh, DisAssemble= (theltem==9) ?  IDisAssemble :DisAssemble) 

} 
first=0; 

}  while ( (theltem  !=  l)&&(theltem  !=  8)  )  ; 
DisposDialog (dp) /  SetPort (DisplayWindow) ; 
clrscn=0; 
if ( (to-f rom>=500) && (theltem==l) && ( IDisAssemble) )  { 

to=from+500; 

Error ("\pCannot  dump  more  than  " ,"\p  500  bytes  at         a 
time.", "\p","\p") ; 

} 
if ( (to<from) && (theltem==l) )  { 

ltoa (from, s, 8) ; ltoa (to, number, 8) ; 

Error ("\pCannot  dump  range  ",s,"\p  to  ", number); 

} 
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else  if (theltem==l)  { 

if (DisAssemble)  { 

StaDisAdr=from;  EndDisAdr=to; 
NotAfterGo=l;  DisAsm(); 
} 
else  { 

NotAf terGo=0 ;   dump ( ) ; 
} 
} 
if(RefScrn)  LastScreen (0) ; 
Clear=0;  OurEvent=0; 
break; 
MemWitem: 

dp=GetNewDialog (132, NULL, -1L) ;  SetPort (dp 
ltoa (at, number, 8) ; 

GetDItem (dp, 2 , &type, &itemh, &textbox) ;  Set 
ltoa (value, number, width*2) ; 
GetDItem (dp, 3, &type, &itemh, &textbox) ;  Set 
f irst=l;theltem=0;  SellText (dp, 2, 0, 32000) 
do{ 

SystemTask  () / 

GetNext Event ( ever yE vent, &myEvent) ; 
if ( (f irst&&width==l) | | (theltem==6) ) { 
GetDItem (dp, 6, &type, &itemh, &textbox) ; 
GetDItem (dp, 7, &type, & itemh, &textbox) ; 
GetDItem (dp, 8, &type, Sitemh, &textbox) ; 

} 
if ( (first&&width==2) | | (theltem==7) ) { 
GetDItem (dp, 6, &type, &itemh, Stextbox) ; 
GetDItem (dp, 7, &type, &itemh, &textbox) ; 
GetDItem (dp, 8, &type, & itemh, Stextbox) ; 

} 
if ( (first&&width==4) | | (theltem==8) ) { 

GetDItem (dp, 6, &type, &itemh, Stextbox) ; 

GetDItem (dp, 7, &type, &itemh, Stextbox) ; 

GetDItem (dp, 8, &type, &itemh, &textbox) ; 

} 
if ( (first&&step==l) | | (theltem==9) ) { 

GetDItem(dp, 9, &type, &itemh, &textbox) ; 

GetDItem(dp, 10, &type, &itemh, &textbox) ; 

GetDItem(dp, 11, &type, &itemh, Stextbox) ; 

} 
if ( (first&&step==0) | | (theltem==10) ) { 

GetDItem (dp, 9, &type, &itemh, &textbox) ; 

GetDItem (dp, 10, &type, Sitemh, &textbox) 

GetDItem (dp, 11, &type, &itemh, &textbox) 

} 
if ( (first&&step==-l) | | (theltem==ll) ) { 

GetDItem (dp, 9, &type, &itemh, &textbox) ; 

GetDItem(dp, 10, &type, &itemh, &textbox) 


) ;change=0; 
IText (itemh 
IText (itemh 


, number) ; 
, number) ; 


SetCtlValue 
SetCtlValue 
SetCtlValue 


SetCtlValue 
SetCtlValue 
SetCtlValue 


SetCtlValue 
SetCtlValue 
SetCtlValue 


SetCtlValue 
SetCtlValue 
SetCtlValue 


SetCtlValue 
SetCtlValue 
SetCtlValue 


SetCtlValue 
SetCtlValue 


(itemh, 1) 
(itemh, 0) 
(itemh, 0) 


(itemh, 0) 
(itemh, 1) 
(itemh, 0) 


(itemh, 0) 
(itemh, 0) 
(itemh, 1) 


(itemh, 1) 
(itemh, 0) 
(itemh, 0) 


(itemh, 0) 
(itemh, 1) 
(itemh, 0) 


(itemh, 0) 
(itemh, 0) 


; width=l; 


; width=2 ; 


; width=4 ; 


; step=l; 


; step=0; 
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GetDItem(dp, 11, &type, &itemh, &textbox) ;  SetCtlValue (itemh, 1) ; step=-l; 

} 

if  (  (f irst&&verify)  |  |  (theltem==12) )  { 

GetDItem(dp, 12, &type, & itemh, & text box) / 

SetCtlValue (itemh, verify= (theltem==12)  ?  ! verify:  verify); 
} 
first=0; 

ModalDialog (NULL, Stheltem) ; 
if (theltem==3)  change=l; 

if ( (theltem==2)  &&  change) { 

GetDItem(dp, 3, &type, & itemh, Stextbox) /  Get I Text (itemh, number) ; 

value=atol (number) ; 

GetDItem(dp, 2, &type, &itemh, Stextbox) ;  GetlText (itemh, number) ; 

at=atol (number) ; 

wmemory (step, width)  ; 

ltoa (at, number, 8) ; 

GetDItem(dp, 2, &type, &itemh, &textbox) ; 

SetlText (itemh, number) ;  SellText (dp, 3, 0, 80) ; 

ltoa (value, number, width*2 )  ; 

GetDItem (dp, 3, &type, &itemh, &textbox) ; 

SetlText (itemh, number) /  SellText (dp, 3, 0, 80) ; 

} 
}  while (theltem  !=  1)  ; 

GetDItem (dp, 2, Stype, &itemh, &textbox) ;  GetlText (itemh, number) ; 
at=atol (number) ; 

DisposDialog (dp) ;  SetPort (DisplayWindow) / 
Clear=0/  OurEvent=l; 
break; 
case  Sbreakltem: 

dp=GetNewDialog (131, NULL, -1L) ;  SetPort (dp) ; 
change=0;  Brk_Flag=0x00; 
for (i=0;i<5;i++) { 

ltoa (Breaks [i] , number, 8) ; 

GetDItem (dp, i+2,  &type, &itemh, &textbox) ;  SetlText (itemh, number) ; 
itoa (BreakTimes [i] , number) ; 
GetDItem (dp, i+14, &type, & itemh, &textbox) ;  SetlText (itemh, number) ; 
} 
ltoa (registers [18] , number, 8) ; 
SellText (dp, 10, 0, 32000) ; 

GetDItem (dp, 10, &type, &itemh, Stextbox) ;  SetlText ( itemh, number) ; 
f irst=change=l; theltem=0; 
do{ 

SystemTask () ; 

GetNextEvent (everyEvent, &myEvent)  ; 
if ( (first&&WillGoTo==l) | | (theltem==8) ) { 

GetDItem(dp, 8, &type, &itemh, Stextbox) ;  SetCtlValue (itemh, WillGoTo=l) 
GetDItem (dp, 9, &type, & itemh, &textbox) ;  SetCtlValue (itemh, 0) ; 
} 
if  (  (first&&WillGoTo==0)  |  |  (theltem==9) )  { 

GetDItem (dp,  8, &type,  &itemh,  Stextbox) ;  SetCtlValue (itemh, WillGoTo=0) 
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GetDItem(dp, 9, &type, &itemh, Stextbox) ;  SetCtlValue (itemh, 1) ; 

} 
for (i=0;i<5;i++) { 

GetDItem(dp, i+2, &type, &itemh, &textbox) /  GetlText (itemh, number) ; 

tempvalue=atol (number) ; 

if  (  (Breaks [i] ) ==tempvalue)  { 

GetDItem (dp, i+14 , &type, &itemh, &textbox) ;  GetlText (itemh, number) ; 
BreakTimes [i] =atoi (number) ; 
} 
else  { 

Breaks [i] =tempvalue; 
if (Breaks [i] !=0x00)  { 
BreakTimes [i]=l; 
itoa (BreakTimes [i ] , number) ; 

GetDItem(dp, i+14, &type, &itemh, Stextbox) ;  SetlText (itemh, number) ; 
} 
} 
if (Breaks [i]==0x00)  { 
BreakTimes [ i ] =0 ; 
itoa (BreakTimes [i] , number) ; 
GetDItem(dp, i+14, &type, & itemh, &textbox) ;  SetlText (itemh, number) ; 

} 
if (change) { 

Get D I tern (dp, 13, &type, & itemh, & text box)  ; 

if ( (registers  [19] &0xc000) ==0x8000)  SetCTitle (itemh, "\pTrace  All") ; 

else 

if ( (registers [19] &0xc000) ==0x4000)  SetCTitle (itemh, "\pTrace  Branch") 
else  SetCTitle (itemh, "\pNo  Trace"); 
for (i=0;i<5;i++) { 

Itoa (Breaks [i] , number, 8) ; 

GetDItem (dp, i+2, &type, &itemh, &textbox) ;  SetlText (itemh, number) ; 

itoa (BreakTimes [i] , number) ; 

GetDItem (dp, i+14, &type, &itemh, &textbox) ;  SetlText (itemh, number) ; 

} 
GetDItem(dp, 19, Stype, Sitemh, &textbox) ;  SetCtlValue (itemh, DisplaySteps) 
GetDItem (dp, 21, &type, & itemh, &textbox) ; 
if ( (ReturnTo==l)  I  I  ( (ReturnTo==0) && (GoToReg) ) )  { 

SetCTitle (itemh, "\pRegister  Menu") / 

ReturnTo=l;  GoToReg=0; 

} 
else  if (ReturnTo==0)  SetCTitle (itemh, "\pGo  Menu"); 
else  SetCTitle (itemh, "\pNo  Menu"); 
change=0; 

} 

ModalDialog (NULL, &theltem) ; 

if ( ( (theltem>=2) && (theltem<=6) ) | | (theltem==10) )  CheckHex (theltem, 8) ; 

if ( (theltem>=14) && (theltem<=18) )  CheckDec (theltem, 4,9); 

if (theltem==7) { 

for (i=0;i<5;i++) { 

Itoa  (Breaks [i] =0, number,  8) ; 
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GetDItem (dp, i+2, &type, &itemh, Stextbox) ;  SetlText (itemh, number)  ; 
itoa (BreakTimes [i] =0, number) ; 

GetDItem (dp, i+14, &type, &itemh, Stextbox) /  SetlText (itemh, number) ; 
} 
change=l; 

} 
if (theltem==19)  { 

DisplaySteps=  !  DisplaySteps; 
change=l; 

} 
if (theltem==21)  {  ReturnTo= (ReturnTo+1)  %  3;  change=l;  } 
if  (theltem==13)  { 

registers  [19] = (registers [19] &0x3fff)  |  (  (  (  (registers  [19]  »14)  +1)  %3)  «1< 
change=l;  first=0; 
} 
}  while ( (theltem  !=  1) && (theltem  !=  11)); 
for (i=0;i<5;i++) { 

GetDItem (dp, i+2, &type, &itemh, Stextbox) ;  GetlText (itemh, number) ; 
Breaks  [i ] =atol (number) ; 

GetDItem (dp, i+14 , &type, &itemh, Stextbox) ;  GetlText (itemh, number) ; 
BreakTimes [i]=atoi (number) ; 

} 
GetDItem (dp, 10, &type, & itemh, & text box) /  GetlText (itemh, number) ; 
registers [18] =atol (number) ; 
if (theltem==l)  { 

if (ReturnTo==l)  CameFmGo=GoToReg=l ; 
else  if (ReturnTo==0)  GoToReg=0; 
else  CameFmGo=GoToReg=0; 
if (registers [18]<0xl000)  { 

Error  ("\plllegal  Go  Address ...", "\p   Must  be  over  $1000 . ", "\p", "\p' 
registers [18] =0x00;  Brk_Flag=l; 
} 
for (i=0;i<5;i++) 

if  (  (Breaks [i]<  0x1000) && (BreakTimes [i]  ! =0) )  { 
ltoa ( (long) (i+1) , s,2) ;  Brk_Flag=l; 

Error ("\plllegal  Breakpoint  #",s,"\p   Must  be  over  $1000 . ", "\p": 
Breaks [i]=0x0000;  BreakTimes [i]=0; 
} 
} 
if ( (theltem==l) && ( !Brk_Flag  ))  go(); 
if (theltem==ll)  { 
ReturnTo=2; 
CameFmGo=GoToReg=0  ; 

} 
DisposDialog (dp) ;  SetPort (DisplayWindow) ;  clrscn=0; 
if ( (theltem==l) && ( !Brk_Flag  ))  { 

if ( (ReturnTo!=0) && (ReturnTo ! =1) )  { 
for (i=0, j=0; j<99; j++)  { 
if  (t[j]=='  .')  { 

for (k=0;k<9;k++)  {  PrintBuf [i] ='  ';i++;} 
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} 


if  C(j— 3)  I  I  (j==22)  |  |  (j==41)  |  |  (j==60)  |  |  (j==79)  | 
PrintBuf [i]=OxOd;  i++;  PrintBuf [i] =OxOa; i++; 
} 

{   PrintBuf [i]=t [j] ;  i++;  } 


(j==98))  { 


i+=l 


else 
} 

prnthex2 (registers [18] , 8, 3) / 
prnthex2 (registers [19]  ,  4,  17) 
prnthex2 (registers [15]  ,  8,  30) 
prnthex2 (registers [16] , 8,  43) 
prnthex2 (registers [17] ,  8,  56) 
for (i=70, j=0; i<281; i+=13,  j++)  { 

if ( (i==122) | | (i==175) | | (i==228) ) 

prnthex2 (registers [ j ]  ,  8,  i)  ; 

} 
StaDisAdr=EndDisAdr=registers [18]  ; 
if ( !Ref Scrn)  DumptoScreen (i, &PrintBuf [0]  )  ; 
Stop_n_Flush () ; 
DisAsm( ) ; 

prnthex2 (StaDisAdr,  8,  i)  ;  i+=8; 
PrintBuf [i] =0x2  0; i+  +  ; 

for ( j=i,k=l;k<81;k+  +  ,  j++)  PrintBuf [j ] =DisAsmOutBuf [k] 
PrintBuf [i]=0x0d; i++;  PrintBuf [i] =0x0a;  i++; 
PrintBuf [i]=0x0d; i+  +  ;  PrintBuf  [i]=0x0a; 
FillQue (i-1)  / 

if (Hardcopy==l)   DumptoPrn (i) ; 
} 
} 

if (ReturnTo!=2) 
else  Clear=0; 
OurEvent=l; 
Stop_n_Flush()  ; 
break; 
clearltem: 
EraseRect (SmyRect) 
helpltem: 

EraseRect (&myRect) 
help ( ) /  break; 
Options : 
dp=GetNewDialog ( 135, NULL, -1L) 


1=: 


Clear=2; 


Clear=2;  break; 
clrscn=0; 


SetPort (dp) 


Get D I tern  (dp, 5, &type, &itemh, &textbox) 
GetDItem (dp, 4 , &type, &itemh, &textbox) 
GetDItem(dp, 3, &type, &itemh, Stextbox) 
GetDItem (dp, 2, &type, Sitemh, &textbox) 
first=l;  theltem=0; 
do{ 

SystemTaskO  ; 

GetNext Event (everyEvent, &myEvent) ; 
if ( (f irst&&Experienced) | | (theltem==5) ) 
GetDItem (dp, 5, &type, &itemh,  &textbox) 


SetCt lvalue (itemh,  Experienced) 
SetCtlValue (itemh, Ref Scrn) ; 
SetCt lvalue (itemh, Hardcopy) ; 
SetCtlValue (itemh,  Coprocessor) 
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Set Ct lvalue (itemh, Experienced^  (theltem==5) ?  ! Experienced: Experienced) 

} 
if ( (first&SRefScrn) | | (theltem==4) )  { 
GetDItem (dp, 4 , &type, &itemh, &textbox) ; 
SetCtlValue (itemh, RefScrn=  (theltem==4)  ?  IRefScrn:  RefScrn) ; 

} 
if ( (first&&Hardcopy) | | (theltem==3) )  { 
GetDItem(dp, 3, &type, &itemh, &textbox) ; 
Set Ct lvalue (itemh, Hardcopy=  (theltem==3)  ?  lHardcopy:  Hardcopy) ; 

} 
if ( (f irst&&Coprocessor) | | (theltem==2) )  { 
GetDItem (dp, 2, &type, & itemh, Stextbox) ; 
Set Ct lvalue (itemh, Coprocessor= (theltem==2) ?  ! Coprocessor : Coprocessor) 

} 

first=0; 

ModalDialog (NULL, &theltem) ; 

}  while (theltem  !=  1)  ; 

DisposDialog (dp) /  SetPort (DisplayWindow) ; 

Clear=0;  OurEvent=l; 


} 
/* 


return  (1)  ; 


CHECK  HEX() 


function  : 

-  This  function  checks  to  see  if  its  argument  is  a  valid 
hexadecimal  number  or  not.   If  the  number  is  not  valid, 
an  error  message  is  displayed,  and  that  entry  is  cleared. 

arguments : 

-  theltem, n 
called  by: 

-  doFunct  ion ( ) /menu . c 
calls     : 

-  Error () /menu . c 

-  ltoa () /monitor . c 

*/ 

void  CheckHex (theltem, n)  int  theltem, n; { 

char  number [21]; 

int  i, j, type; 

Handle  itemh; 

Rect  textbox; 

GetDItem (dp, theltem, &type, &itemh, &textbox) ;  GetlText (itemh, number) ; 

if (number [0] >n)  { 

Error (  M\pToo  Many  Digits  in:  ",  number , "\p" , "\p" ) ; 

ltoa (0L, number, n) ; 

GetDItem (dp, theltem, &type, &itemh, &textbox) ;  SetlText (itemh, number) ; 
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} 

for  (i=l,  j=0;  Knumber  [0]  ;  i++) 

j |  =  ( (number [i]<' 0' )  I  I  ( (number [i]>' 9' ) && (number [i] <' A' ) ) 
| | ( (number [i]>'F' ) && (number [i] <' a' ) ) | | (number [i]>' f ' ) ) ; 
if(j)  { 

Error (  "\plllegal  Hexadecimal  Character  in:  ", number, "\p" , "\p") ; 
ltoa (0L, number, n) ; 

GetDItem (dp, theltem, &type, &itemh, &textbox) /  SetlText (itemh, number) ; 
} 
} 


/*   CHECK_DEC() 

function  : 

-  This  function  checks  to  see  if  its  argument  is  a  valid 
Decimal  number  or  not .  If  the  number  is  not  valid,  an 
error  message  is  displayed,  and  that  entry  is  cleared. 

arguments : 

-  theltem,  n,  n2 
called  by: 

-  doFunct ion () /menu . c 
calls     : 

-  Error () /menu . c 

-  ltoa () /monitor . c 

*/ 

void  CheckDec (theltem, n, n2)  int  theltem, n, n2; { 

char  number [21]; 

int  i, j, type; 

Handle  itemh; 

Rect  textbox; 

GetDItem (dp, theltem, &type, Sitemh, &textbox) ;  GetlText (itemh, number) ; 

if  (number [0] >n)  { 

Error (  "\pToo  Many  Digits  in:  ",  number, "\p", "\p")  ; 

ltoa (0L, number, n) ; 

GetDItem (dp, theltem, &type, &itemh, &textbox) ;  SetlText (itemh, number) ; 

} 
for (i=l, j=0; Knumber [0] ;i++)  j |  =  ( (number [i]<' 0' )  I  I  (number [i]>'n2' ) ) ; 

if(j)  { 

Error (  "\plllegal  Decimal  Character  in:  ", number, "\p", "\p") ; 

ltoa (0L, number, n) ; 

GetDItem (dp, theltem, &type, Sitemh, &textbox) ;  SetlText (itemh, number) ; 

} 
} 

/*   ERROR () 
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function  : 

-  This  function  displays  an  Error  Message  on  the  screen. 
The  displayed  message  is  a  Pascal  string,  which  is  passed 
as  a  parameter. 

arguments : 

-  s,  f,  1,  z 
called  by: 

-  doFunct ion () /menu . c 

-  CheckDec ( ) /menu .c 

-  CheckHex ( ) /menu . c 

-  go () /Monitor . c 

-  wmem( ) /Monitor . c 

-  CopyFloat ( ) /Monitor . c 

-  memdisp () /Monitor . c 

-  HandleEvent () /download. c 

-  CheckError () /download. c 


calls 


-  None 


*/ 

void  Error  (  s,  f  ,1  , z)  char  *s,  *f,  *1,  *z;  { 

ParamText(s,  f,  1,  z) ; 

Alert (256,  OL  ) ; 

} 
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ill.   Source  code  of  monitor. c 


/*  Monitor.c  */ 


typedef  struct  {  int  v,h;  }  Point  ; 

typedef  struct  {  int  top, left , bottom, right  ;  }  Rect  / 

typedef  struct  {  int  rgnSize;  RectrgnBBox;  }  Region,*  RgnPtr, ** 

extern  char  *start , *end, *Head, *Tail, *EndQue, *StartQue; 

extern  char  fregs  [20]  [8] , clrscn, verify, DisplaySteps, ReturnTo; 

extern  char  c, instring [255] , inbuf [3001] , E_bytes [20] , fregs [20] [8] 

extern  char  Hardcopy, Coprocessor, WillGoTo, Ref Scrn, Reach, clrscn; 

extern  char  ErrorFlag,NotAfterGo,PrintBuf [2500] , DisAssemble; 

extern  char  ManSign [8] ,ExpSign [8] , Fbuf [12] , Que_buf [2000] ; 

extern  int  origin,  BreakTimes [5] ; 

extern  long  registers [24 ] , Breaks [5 ] , f cregs [3 ] , from, to, at , value; 

extern  void  send (char); 

extern  void  sendprn (char) ; 

extern  void  Error (char  *,char  *,char  *,char  *) ; 

extern  void  InputBuf fer ( ) ; 

extern  void  CheckError () ; 

extern  void  CopyRegsO; 

extern  void  CopyBrkCnts ( ) ; 

extern  void  Stop_n_Flush () ; 

extern  Rect  windowBounds,myRect, ClrRect ; 

extern  int  ByteCount , LastLocCount , scrollsize, LocCount ; 

extern  RgnHandle  myRgn; 

char  tbuf[]=    "  0123456789ABC 

char  DisAsmOutBuf [81] , AbortEvent=0,  AbortCount=0; 

int  z, line_count, numof chars ; 

long  StaDisAdr,EndDisAdr, *HISPC, *SubrAdr; 


RgnHandle; 


D 


DUMP  () 
function : 

-  This  function  performs  the  'Memory  Display'  operation. 
The  two  global  variables  (from,  to)  are  set  by  the  user. 
Size=  to-from,  bytes  of  memory  are  displayed,  starting  from 
the  address  ' from' . 

Also,  user  has  the  'Disassemble'  option.  In  this  case,  the 
memory  contents  are  first  disassembled,  and  then  displayed 
on  the  screen . 
arguments : 

called  by: 

-  doFunction ( ) /menu . c 
calls     : 

-  Stop_n_Flush () /download. c 
Draw  x () /monitor . c 
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memdisp ( ) /monitor . c 
prnthex3 ( ) /monitor . c 
FillQue ( ) /monitor . c 
DumptoScreen ( ) /monitor . c 
DumptoPrn ( ) /monitor . c 

*/ 

dump ( ) 

{ 

char  DisBuf [16]; 

int  i, inbytes, disl, size, residual=0, inex; 

long  f rom2, baseadr; 

Stop_n_Flush () ; 

line_count=0  / 

for (z=0;z<56;z++)  PrintBuf [z] =tbuf [z] ; 

PrintBuf [z]=0x0d; 

PrintBuf [z+l]=0x0a;  z+=2; 

size=((int) (to-from) )+l; 

numofchars=size; 

from2=from; 

if(size  >  16)  { 

if ( (from2&0x0000000f ) !=0)  { 

inbytes=16- (int) (f rom2&0x0000000f ) ; 
baseadr=from2&0xfffffff 0  ; 
} 
else  { 
inbytes=16; 
baseadr=f rom2 ; 

} 
prnthex3 (f rom2&0x0f f f f f f f OL,  8,  z)  ; 
for (i=0,disl=0/i< (16-inbytes) ;disl++, i++)  { 
Draw_x (z) ; 
DisBuf [disl]=' . ' ; 
} 
memdisp ( f rom2 , inbytes ) ; 
for (i=0; i< inbytes; i++, disl++)  { 

if ( (instring[i]>=0x20) && (instring [i ] <=0x7e) ) 

DisBuf [disl ]=in st ring [i] ; 
else 

DisBuf [disl]=' . ' / 

} 
PrintBuf [z]='  ';  z++; 

for  (i=0; i<16; i++, z++)  PrintBuf [z] =DisBuf [ i]  ; 
PrintBuf [z]=0x0d; 
PrintBuf [z+l]=0x0a;  z+=2; 
numof chars-=inbytes  ; 
baseadr+=16; 

if  (  (line_count==22) && (numofchars>=16)  )  { 
line  count=0; 
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for (inex=z; inex<z+56; inex++)  PrintBuf [inex] =tbuf [inex-z] ; 
PrintBuf [inex] =0x0d; 
PrintBuf [inex+l]=0x0a; 
inex+=2;  z=inex; 

} 
while (numofchars>16)  { 

prnthex3 (baseadr,  8,  z)  ; 

memdisp (baseadr, inbytes=16)  ; 

for (disl=0; disl<inbytes;disl++)   { 

if ( (instring [disl] >=0x20) && (instring [disl] <=0x7e) ) 

DisBuf [disl] =instring [disl]  ; 
else 

DisBuf [disl] ='  . '  ; 

} 
PrintBuf [z]='  ';  z++; 

for (i=0;i<16;i++,  z++)  PrintBuf [z ] =DisBuf [i] ; 
PrintBuf [z]=0x0d; 
PrintBuf [z+l]=0x0a;  z+=2; 
numof chars-=inbytes  ; 
baseadr+=16; 

if ( (line_count==22) && (numof chars >=1 6) )  { 
line_count=0; 

PrintBuf [z]=0x0d;  PrintBuf [z+1] =0x0a;  z+=2; 
for (inex=z; inex<z+56; inex++)  PrintBuf [inex] =tbuf [inex-z] ; 
PrintBuf [inex] =0x0d ; 
PrintBuf [inex+1] =0x0a; 
inex+=2;  z=inex; 
} 
} 
prnthex3 (baseadr, 8, z) ; 
memdisp (baseadr, inbytes=numof chars) / 
for (i=0; i< (16-inbytes) ; i++)  Draw_x (z) ; 
for  (i=0;  Kinbytes;  i++)   { 

if  (  (instring [i]>=0x20) && (instring [i] <=0x7e) ) 

DisBuf [i] =instring [i] / 
else 

DisBuf [i]=' .' ; 
} 
PrintBuf [z]='     ';    z++; 

for (i=0; Kinbytes; i++, z++)  PrintBuf [z] =DisBuf [i] ; 
PrintBuf [z]=0x0d; 
PrintBuf [z+1] =0x0a;  z+=2; 
} 
else  { 

prnthex3 (f rom2&0x0f f f f f f f OL,  8,  z)  ; 
if ( (from2&0x0000000f ) !=0) 

for (i=0,disl=0/i<( (int)  (f rom2&0x0000000f ) ) ;disl++,  i++)  { 
Draw_x (z) / 
residual++; 
DisBuf [disl]='  .  '  ; 
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} 

else  disl=0; 

if (size<= (16-residual) )  { 
memdisp (f rom2, size) ; 
for (i=0; i<size;disl++, i++)   { 

if (  (instring[i]>=0x20) && (instring [i] <=0x7e)  ) 

DisBuf [disl] =instring [i] ; 
else 

DisBuf [disl]=' . ' ; 

} 
for (i=0; i< (16- (size+residual) ) ; i++)  Draw_x (z) ; 
PrintBuf [z]='  ';  z++; 

for (i=0; i< (residual+size) ; i++,  z++)  PrintBuf  [z]=DisBuf [i] ; 
PrintBuf [z]=0x0d;  PrintBuf [z+1] =0x0a;  z+=2; 
} 
else  { 

memdisp (from2, (16-residual)); 

for (i=0; i< (16-residual) ;disl++,  i++)  { 

if (  (instring [i] >=0x20) && (instring [i]<=0x7e)  ) 

DisBuf [disl ] =in string [i]  ; 
else 

DisBuf [disl] =' . ' ; 
} 
PrintBuf  [z]='  ';  z++; 

for (i=0; i<16;i++,  z++)  PrintBuf [z] =DisBuf [i] ; 
PrintBuf [z]=0x0d;  PrintBuf [z+1] =0x0a;  z+=2; 
baseadr=f rom2-residual+16; 
prnthex3 (baseadr, 8, z) ; 

memdisp (baseadr,  (size- (16-residual) ) ) ; 
for (i=0; i< (16- (size-16+residual) ) / i++)  Draw_x (z) / 
for (i=0,disl=0;i<(16- (size-16+residual)  )  ;disl++,  i  +  +  )  { 
if (  (instring [i] >=0x20) && (instring [i] <=0x7e) ) 

DisBuf [disl ] =inst ring [i]  ; 
else 

DisBuf [disl]=' . ' ; 

} 

PrintBuf [z]='  ';  z++; 

for (i=0; i< (size- (16-residual) ) ;i++,  z++)  PrintBuf [z]=DisBuf [i; 

PrintBuf [z]=0x0d/  PrintBuf [z+1] =0x0a;  z+=2; 
} 
} 

PrintBuf [z]=0x0d;  PrintBuf [ z+1] =0x0a; 
PrintBuf [z+2]=0x0d;  PrintBuf [z+3] =0x0a;  z+=3; 
FillQue(z-l) ; 

if ( IRefScrn)   DumptoScreen (z, &PrintBuf [0] ) ; 
if (Hardcopy)   DumptoPrn (z) ; 
AbortEvent=0;  AbortCount=0; 

} 
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/*   MEM_DISP() 

function : 

-  This  function  helps  ' dump ( ) '  in  performing  the  'Memory  Display* 
operation . 

Maximum  sixteen  bytes  can  be  handled  by  this  function, 
arguments : 

-  staradr,  bytecount 
called  by: 

-  dump () /monitor . c 
calls     : 

-  send ( ) /download . c 
Stop_n_Flush ( ) /download . c 
Error ( ) /download. c 
CheckError ( ) /download . c 

*/ 

memdisp (staradr, bytecount) 
int   bytecount  ; 
long  staradr; 

{ 

char  c,md_code=0x04  / 

int  i, chksum; 

long  1; 

send (md_code) ; 

for (i=0;i<=4  00;i++)  ; 

for  (i=24/i>=0;  i-=8)  send  (c=  (char)  (staradr»i)  )  ; 

SerGetBuf (-6,&1) ; 

if(l>0)  { 

numofchars=15; 

AbortEvent=l; 

} 
send (c= (char) ( (bytecount) >>0) ) ; 
CheckError () ; 
if ( !ErrorFlag)  { 

InputBuf fer (bytecount+1)  ; 

for  (i=0;  i<bytecount ;  i++)  prnthex3  (  (  (long)  (instring  [i] )')  ,2,'z)  ; 
for (i=0; Kbytecount ; i++)   {         /*  calculate  checksum  */ 
if (i==0)  chksum  =  (instring [i]  &  Oxff)  &  Oxff  ; 
if(i>0  )  chksum/s=  (instring  [i]  &  Oxff)  &  Oxff  ; 

} 
if  ( (chksum!=( (instringfi]  &  Oxff)  &  Oxff ))&&(! AbortEvent ) ) 

Error ("\pChecksum  error .Restart", "\p", "\p", "\p") ; 
if ( (AbortEvent) && (AbortCount==0) )  { 

Error ("\pBoard  Aborted. . .","\p", "\p","\p") / 
Abort Count++; 
} 
} 
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ErrorFlag=OxOO; 

line_count++; 
Stop_n_Flush () ; 

} 

/*   W_MEMORY() 

function : 

-  This  function  performs  the  'Memory  Modify'  operation.  'Verify' 
option  is  also  available  to  the  user.  In  this  case,  a  write  is 
done  to,  and  following  this,  a  read  from  that  memory  location 
is  perfomed.  Then,  the  two  are  compared. 

arguments : 

-  step,  width 
called  by: 

-  doFunct ion () /menu .c 


calls 


send ( ) /download . c 
Err or ( ) /download . c 
CheckError ( ) /download . c 
InputBuf fer () /download. c 


*/ 

wmemory ( st ep , width ) 
int  step, width  ; 
{ 

char  c,  mm_code=0>:05 
int  i, j; 


send (mm_code) ; 

for (i=0; i<=400; i++) ;  /*  for  Timing  adjustment   */ 

if  (Iverify)  send (c= (char) (width>>0) ) ;  /*  send  size  of  the  operand*/ 

if  (verify  )  send  (c=  (char)  (  (width  |  0x0080)  »0)  )  ; 

for  (i=24;i>=0;  i-=8)  send  (c=  (char)  (at»i)  )  ; 

switch  (width)  { 

case  4  :  for  (i=24 ; i>=0; i-=8)  send (c= (char )  (value>>i) )  ; 
if (verify)  { 

InputBuf fer (4) ; 

if  (  (instring[0]  !=(c=(char)  (value»24)  )  )  |  | 
(instring[l]  !  =  (c=(char)  (value»16)  )  )  I  I 
(instring  [2]  !  =  (c=(char)  (value»8  )))  || 
(instring[3]  !  =  (c=(char)  (value»0  )))  )  { 
Error ("\pVerify  Failed, Try  Again", "\p" , "\p",  "\p" ) ; 
at -=step* width; 

} 
}  break; 
case  2  :  for (i=8; i>=0; i-=8)   send (c= (char) (value>>i) ) ; 
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if (verify)  { 

InputBuffer (2)  ; 

if  (  (instring[0]  !  =  (c=(char)  (value»8)  )  )  |  | 
(instringfl]  !  =  (c=(char)  (value»0)  )  )  )  { 
Error ("\pVerify  Failed, Try  Again", "\p", "\p", "\p" ) ; 
at -=s t ep * width; 

} 
}  break; 
case  1  :  send (c= (char) (value>>0)  )  ; 
if (verify) { 

InputBuffer (1)  ; 
if  (instring  [0]  !  =  (c=  (char)  (value»0)  )  )  { 

Error ("\pVerify  Failed, Try  Again", "\p", "\p", "\p") ; 
at -=s t ep * width; 

}  /*  If  Verify  fails,  do  not  increment /decrement  the  address  */ 
}break; 
default  :  break; 

} 

at+=step*width; 
CheckError ()  ; 
ErrorFlag=0x00 ; 
} 


/*   GO() 

function : 

-  This  function  performs  the  'Go'  operation.  Program  Counter, 
Trace  Mode  etc.,  are  set  by  the  user  in  Go  Menu. 

arguments : 

called  by: 

-  doFunct ion () /menu . c 
calls     : 

-  send () /download. c 
Stop_n_Flush ( ) /download . c 
sendregs ( ) /monitor . c 
SendFloat () /monitor .c 
CheckError ( ) /download . c 
InputBuffer ( ) /download . c 
CopyRegs ( ) /download . c 
CopyBrkCnts () /download,  c 
ltoa ( ) /monitor . c 
Error ( ) /download. c 
CopyFloat ( ) /monitor . c 


*/ 
bo()  { 

3har    c,s[21],go    code=0x02; 


77 


int  i, j; 

long  Save_PC, long_locl=0, long_loc2=0; 

Stop_n_Flush () ; 
if ( IWillGoTo)  { 

go_code=0x03 / 

Save_PC=registers [18] ;  /*  In  case  of  Call  */ 

} 
send(go_code) ; 
for (i=0; i<=4  00;i++) ; 
send (DisplaySteps) ; 

/*  Send  Breakpoints  */ 
for (i=0;i<5;i++)  { 

if (BreakTimes [i]==0)  f or ( j=0; j<4 ; j++)  send(OxOO); 

if (BreakTimes [i]==l)  f or ( j=24; j>=0; j-=8)  send(c= (char) (Breaks [i] »j) ) ; 

if (BreakTimes [i]>l)  for ( j=24; j>=0; j-=8)  send(c= (char) (Breaks [i] »j) ) ; 

} 

/*  Send  BreakCounts  */ 
for (i=0; i<5;i++)  { 

if (BreakTimes [i] >1) 

for  (  j  =  8;  j>=0;  j-=8)  send  (c=  (char)  (BreakTimes  [i]»j)  )  ; 
else  { 

send (0x00) ; 
send (0x00) ; 
} 
} 

/*  Send  Register  info.   */ 
sendregsO;  /*  Send  68020  Registers  */ 

if  (Coprocessor)  SendFloatO;  /*  Send  68881  Registers  */ 

CheckError  ()  ; 
if  ( lErrorFlag)  { 

if (Coprocessor)  InputBuf fer  (107  +  12  +  96) ; 
else 

InputBuf fer (107) ; 

CopyRegsO;  /*  Copy  68020  Registers  */ 

CopyBrkCnts () ; 
if (instring[106]==0x55)  { 
ltoa (registers  [18] , s, 8) / 
Error ( "\pPrivilege  violation   ","\p  At  address  ",s,"\p  "); 

} 
if ( IWillGoTo)  registers [18] =Save_PC; 
if (Coprocessor)  CopyFloat (107) ;   '  /*  Copy  68881  Registers  */ 

} 

ErrorFlag=0x00; 
Stop_n_Flush () ; 
} 

/*   HELP() 
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function : 

-  This  function  displays  help  information  on  the  screen, 
arguments : 

called  by: 

-  doFunct ion () /menu .c 
calls     : 

-  print () /monitor . c 

*/ 

helpO  { 

print ("\pl-  If  you  want  to  use  Coprocessor  instructions,  you\n") / 

print("\p   need  to  select  Coprocessor  option.  This  can  be  done\n" ) ; 

print ("\p    in  Options  Menu.\n"); 

print("\p2-  If  you  want  to  have  a  printout  of  what  you  see,\n") ; 

print ("\p    you  need  to  select  Hardcopy  option.  This  can  be  done\n") 

print ("\p    in  Options  Menu.\n"); 

print ("\p3-  If  you  can  not  select  Supervisor  State  to  work  in,\n" ); 

print ("\p    you  need  to  select  Experienced  option.  This  can  be  done\n") 

print ("\p    in  Options  Menu.\n"); 

print ("\p4-  User  is  not  allowed  to  set  the  Interrupt  Level,  to\n"); 

print ("\p    a  value  greater  than  3.\n"); 

print ("\p5-  If  you  suspect  that  your  program,  running  on  the\n"); 

print ("\p    ECB,  seems  to  be  in  an  endless  loop,  or  out  of  control, \n"> 

print ("\p    press  Abort  Button  on  the  ECB.  In  this  case,  you  will\n") ; 

print ("\p    see  the  current  register  contents . \n") ; 

print ("\p6-  If  the  solution  in  statement  5  above,  won't  work, \n") ; 

print ("\p   press  Reset  Button  on  the  ECB.  Also  Reset  Macintosh . \n") ; 

} 

/*   LTOA() 

function : 

-  This  function  converts  from  long  integer  to  Ascii. 
arguments : 

-  l,s,len 
called  by: 

-  doFunct ion () /menu . c 

-  CheckHex ( ) /menu . c 

-  CheckDec ( ) /menu . c 

-  go ( ) /Monitor,  c 

-  printhex()  /Monitor. c 

-  printhex2 ( ) /Monitor . c 

-  printhex3 () /Monitor  .  c 

-  CopyFloat () /Monitor .c 
calls     : 

-  None 
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ltoa (1, s, len) 

char  s  [21] ; 

long  1/ 

int  len; 

{ 

int  i; 

for (i=s [0]=len;i>0;i — ) { 

s [i]=(l&0x0f) +' 0' ;if  (s [i]>' 9' )  s  [i]+=7; 

1=1»4; 

} 
} 


/*   IT0A() 

function : 

-  This  function  converts  from   integer  to  Ascii 
arguments : 

-  n,  s 
called  by: 

-  doFunct ion () /menu . c 
calls     : 

-  None 

*/ 

itoa (n, s) 
char  s  [  ]  ; 
int  n; 

{ 

int  i=l, c, k, 1; 

s[0]=4; 

for (i=4;i>=l;i — )  { 

if ( (n%10)==0)  s[i]='0'; 

else 

s [ i ] =n  %  10  +  ' 0 ' ; 

n/=10; 

} 
} 

/*   ATOK) 

function : 

-  This  function  converts  from   Ascii  to  integer 
arguments : 

-  s 
called  by: 

-  doFunct  ion ( ) /menu . c 
calls     : 

-  None 
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*/ 

int  atoi (s) 
char  s  [  ] ; 

{ 

iint  i,n; 

n=0; 

for (i=l; i<=s [0] ; i++)  n=  10  *  n  +  s[i]  -  '  0' ; 

return  (n) / 

} 

/*   ATOL() 

function : 

-  This  function  converts  from  Ascii  to  long  integer, 
arguments : 

-  s 
called  by: 

-  doFunct ion () /menu . c 
calls     : 

-  None 

*/ 

long  atol  (s) 
char  s [21] ; 

{ 

int  i  ; 

long  1; 

1-0; 

for (i=l; i<=s [0] ; i++)  { 

if(s[i]>'9')  s[i]-=7; 

1=(  (s  [i]-'0'  )  &0x0f)  +  (l«4)  ; 

} 
return (1)  ; 

} 

/*   DOWNLOAD  () 

function : 

-  This  function  performs  the  'Download'  operation.  First  the 
user  program  is  downloaded  to  Educational  Computer  Board. 
Then,  the  current  register  values,  Coprocessor  register  values 

(if  Coprocessor  option  is  used),  are  received  from  the  ECB . 
arguments : 

called  by: 

-  doFunct ion () /menu .c 
calls     : 
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-  send () /download. c 
Stop_n_Flush ( ) /download . c 
CheckError ( ) /download . c 
CopyRegs ( ) /download . c 
CopyFloat ( ) /monitor . c 
InputBuf f er ( ) /download . c 

*/ 

DownLoad () 

{ 

char  *p,bite, down_code=0x00 ; 

int  chksum, i; 

long  1; 

Stop_n_Flush  () ; 

if (Coprocessor)   down_code=0x08;        /*  If  Coprocessor  is  to  be  used  */ 

send (down_code) ; 

for (i=0; i<=400; i++) /  /*  for  Timing  purposes  */ 

for (p=start ;p<end;p++)  { 

if  (p— start  +  8)   chksum= (bite=*p  &  Oxff)  &  Oxff  ; 

if(p>start+8  )   chksumA= (bite=*p  &0xff)  &  Oxff  / 

SerGetBuf (-6, &1) ; 

if(l>0)  { 

ErrorFlag=l; 
break; 

} 
send (*p) ; 
} 
if  (  !ErrorFlag)  send (chksum) / 
CheckError () / 
if  (  !ErrorFlag)  { 
if  (Coprocessor )  { 

InputBuf fer (96  +  12  +  96)  ; 
CopyRegs () ;  CopyFloat (9  6) ; 

} 
else  { 

InputBuf fer  (96) ; 
CopyRegs ( ) ; 
} 
} 

ErrorFlag=0x00; 
Stop_n_Flush () ; 
} 

/*  PRINTHEXO 

function : 

-  This  function  prints  onto  the  screen  in  hexadecimal  format . 
arguments : 

-  l,i 
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called  by: 

-  DisAsm ( ) /monitor . c 
calls     : 

-  print () /monitor . c 
ltoa ( ) /monitor . c 

*/ 

printhex (1, i) 
int  i  / 
long  1 ; 

{ 

char  s [21]  ; 

ltoa (1, s, i) ; 

print  (s);  DrawChar  ( '  '); 

} 


/*  PRINT  () 

function : 

-  This  function  prints  a  string  onto  the  screen 
arguments : 

-  s 
called  by: 

-  printhex () /monitor . c 

-  help () /monitor . c 

-  DumptoScreen () /monitor . c 

-  DisAsm () /monitor . c 


-  None 


calls 

*/ 

print (s) 
char  s  [  ]  ; 
{ 

int  i  ; 
Point  p; 

for (i=l;i<=s [0] ;i++)  { 
if (s[i]=='\n')  { 

ScrollRect (&myRect, 0, - ( scroll size+4) ,myRgn) ; 

MoveTo (4,myRect .bottom-4  0)  ; 

} 
else 

DrawChar (s  [i] ) ; 
} 
} 


/*  PRINTHEX2  () 
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function : 

-  This  function,  together  with  the   'Print2'  function,  copies  th> 
hexadecimal  data  to  the  'PrintBuf  . 

arguments : 

-  Ifi/Y 
called  by: 

-  DisAsm( ) /monitor  .  c 

-  doFunct ion () /menu . c 
calls     : 

-  print2 () /monitor  .  c 
ltoa ( ) /monitor .  c 

*/ 

prnthex2 (1, i, y) 
int  i,y; 
long  1; 

{ 

char  s  [21 ] ; 

ltoa (1, s, i) ; 

print2 (s,y) ; 

} 

/*  PRINT2 () 

function : 

-  This  function,  together  with  the   'printhex2'  function, 
copies  the  hexadecimal  data  to  the  'PrintBuf  . 

arguments : 

-  s,y 
called  by: 

-  printhex2 () /monitor .c 
calls     : 

-  None 


*/ 

print2 (s, y) 

char  s [ ] ; 

int  y; 

{ 

int  i; 

for (i=l/i<=s [0] ;i++,y++)  { 

if (s [i]==' \n' )  break; 

else 

PrintBuf [y] =s [i] / 
} 
} 
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/*  PRINTHEX3 () 

function : 

-  This  function,  together  with  the   'Print3'  function,  copies  the 
hexadecimal  data  to  the  'PrintBuf. 

arguments : 

-  i,i,y 

called  by: 

-  dump () /monitor . c 

-  memdisp () /menu . c 
calls     : 

-  print3 () /monitor . c 
ltoa ( ) /monitor . c 

*/ 

prnthex3 (1, i, y) 

int  i,y; 

long  1; 

{ 

char  s [21 ] ; 

ltoa (1, s, i) ; 

print3 (s,y) ; 

} 

/*  PRINT3  () 

function : 

-  This  function,  together  with  the   'printhex3'  function, 
copies  the  hexadecimal  data  to  the  'PrintBuf. 

arguments : 

-  s,y 
called  by: 

-  printhex3 () /monitor . c 
calls     : 

-  None 

f/ 

orint3 (s, y) 

:har  s [ ] / 

i-nt  y; 

{ 

Int  i; 

for (i=l;i<=s [0] ;i++,y++) { 

if (s [i]==' \n' )  break; 

else 

PrintBuf [y]=s [i] ; 

} 
PrintBuf [y]='  ' ;  y++; 
s=y; 
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/*   SEND_REGS() 

function : 

-  This  function  downloads  all  the  MC68020  Data/Address/Control 
Register  contents  to  the  ECB . 

arguments : 

called  by: 

-  go () /Monitor . c 
calls     : 

-  send () /download. c 
CheckError ( ) /download . c 

*/ 

sendregs () 

{ 

char  outchar; 

int   m, chksum; 

long  tempbuf =0; 

for (m=0;m<24;m++)  { 

tempbuf=registers [m] &0xff 000000; 

out char= (char)  (tempbuf>>24)  ; 

if(m==0)  chksum  =(outchar  &  Oxff)  &  Oxff; 

else 

chksum  A=(outchar  &  Oxff)  &  Oxff; 

send (outchar) ; 

tempbuf =registers [m] &0x00f f 0000; 

outchar= (char) (tempbuf >>16) ; 

chksum  A= (outchar  &  Oxff)  &  Oxff; 

send (outchar) ; 

tempbuf=registers [m] &0x0000f f 00; 

outchar= (char)  (tempbuf >>8)  ; 

chksum  A=  (outchar  &  Oxff)  &  Oxff; 

send (outchar) ; 

tempbuf =registers [m] &0x000000f f ; 

outchar= (char) (tempbuf>>0) ; 

chksum  A= (outchar  &  Oxff)  &  Oxff; 

send (outchar) ; 

} 
send ( (char) chksum) ; 
CheckError ( ) ; 
ErrorFlag=0x00; 
} 

/*   DUMP  TO  PRN() 
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function : 

-  This  function  sends  the  contents  of  'PrintBuf  to  the  printer 
arguments : 

-  index 
called  by: 

-  doFunct ion () /menu .c 

-  dump () /Monitor . c 

-  DisAsm( ) /Monitor . c 

-  LastScreen () /Monitor . c 
calls     : 

-  sendprn () /download. c 

*/ 

DumptoPrn (index) 

int  index; 

{ 

int  i ; 

for (i=0; i<=index; i++) 

sendprn ( (char) (PrintBuf [i] ) ) ; 
} 


/  *   DUMP_TO_SCREEN ( ) 

function : 

-  This  function  sends  the  data,  pointed  to  by  'ptr',  to 
the  screen. 

arguments : 

-  index,  ptr 
called  by: 

-  doFunct ion () /menu . c 

-  dump () /Monitor . c 

-  LastScreen () /Monitor . c 
calls     : 

-  None 

*/ 

DumptoScreen (index, ptr) 

2har  *ptr; 

int  index; 

{ 

3har  DrwStr [255] ; 

int  i, j=l; 

for (i=0; i<=index;  i++)  { 
if (*ptr==0x0d)  { 
DrwStr [0]=j-l; 
DrawString (DrwStr)  ;  j  =  l; 
print ("\p\n") ; 
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ptr  +=2;   i++; 

} 
else  { 

DrwStr [ j]=(*ptr) ; 

ptr++;  j++; 

} 
} 


} 


/*   DRAW_X() 

function : 

-  This  function  writes  the  character  into  'PrintBuf  . 
arguments : 

-  y 

called  by: 

-  dump ( ) /Monitor . c 
calls     : 

-  None 

*/ 

Draw_x (y) 

int  y; 

{ 

PrintBuf [y]='x' ; 

PrintBuf [y+l]='x' ; 

PrintBuf [y+2]='  '; 

z=y+3; 

} 

/*   DIS_ASM() 

function : 

-  This  function  disassembles  the  code,  which  is  passed  to  it 
arguments : 

called  by: 

-  doFunct ion () /menu . c 
calls     : 

-  send ( ) /download . c 
print ( ) /monitor . c 
printhex ( ) /monitor . c 
FillQue ( ) /monitor . c 
printhex2 () /monitor . c 
DumptoPrn ( ) /monitor . c 
InputBuf f er () /download. c 
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*/ 

DisAsmO 

{ 

char    c,  Dis_code=0x04    / 

int      Fixcount=12, i    ; 

asm    { 

LEA  @4  4,A0    ; 

MOVE.L   A0,HISPC; 

} 
DisAsmOutBuf [0]=80; 
*HISPC=StaDisAdr; 
do    { 

send(Dis_code) / 

for (i=0/i<=400;i++)  / 

for  (i=24;i>=0;i-=8)     send  (c=  (char)  (StaDisAdr»i)  )  ; 

send(c= (char) ( (Fixcount ) >>0) ) ; 

InputBuffer (13)  ; 

for (i=0; i<12; i++)       DisAsmlnBuf [i] =instring [i]  ; 

asm    { 

MOVEM.L   D0-D7/A0-A7,  -  (SP)  ; 
BRA  @45( 


@44:  DC.L 

0X00000000, 

@45:  LEA   Di 

sAsmlnBuf , Al, 

MOVE.L 

(Al) +,D0, 

MOVE.L 

(A1)+,D1( 

MOVE.L 

(Al) +,D2, 

LEA  DisAsmOutBuf , Al , 

ADD.L 

#1,A1, 

MOVE .  L 

@ 4  4 , A2 , 

MOVE.L 

A1,-(SP) , 

MOVE.L 

D0,-(SP) , 

MOVE.L 

D1,-(SP) , 

MOVE.L 

D2,-  (SP)  , 

MOVE .  L 

A2,-(SP) , 

MOVE.L 

SubrAdr,A3, 

JSR 

(A3)  , 

MOVE.L 

(SP)  +,  A2, 

LEA 

@44,A3, 

MOVE.L 

A2, (A3) , 

ADD.L 

#16,SP 

MOVEM . L 

(SP)+,D0-D7/A0-A7; 

printhex (StaDisAdr, 8) ; 

print (Dis 

AsmOutBuf ) ; 

print ("\p\n")  / 

if (NotAft 

erGo)  { 

i=0; 

prnthex 

2 (StaDisAdr, 8, i) ; 

i+=8; 
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PrintBuf [8]='  '; 

for (i=9; i<88; i++)  PrintBuf [i] =DisAsmOutBuf [i-8] ; 

PrintBuf [i]=0x0d; i  +  +  ; 

PrintBuf [i]=0x0a; 

FillQue (i+1) ; 

if (Hardcopy)  DumptoPrn (i) ; 

} 
StaDisAdr=  *HISPC; 
}  while  (StaDisAdr  <=  EndDisAdr) ; 
NotAfterGo=0; 
} 

/*   COPY_FLOAT() 

function : 

-  This  function  copies  the  Floating  Point  Registers,  which 
are  uploaded  by  the  ECB. 

arguments : 

-  fmWhere 
called  by: 

-  DownLoad () /Monitor . c 

-  go () /Monitor . c 
calls     : 

-  ltoa () /monitor . c 

-  Error  () /download. c 

*/ 

CopyFloat (fmWhere) 
int  fmWhere; 

{ 

char  instring2 [4] , Not Number =0, s [21] ; 
int  i, j, k,p=0, r; 
r=fmWhere; 

while (p<3)  {        /*  First  Copy  Coprocessor's  control  registers  */ 
f cregs [p] =  0; 
for  (j=0; j<4; j++)  { 

instring2 [ j ] =instring [r] ; 
r++; 
} 
for  (  j=0;  j<4;  j++)  fcregs  [p]  =  (instring2  [  j]  &0xf f )  +  (fcregs  [p]«8)  ; 
P++; 
} 
fmWhere=r; 
for( j-0; j<8; j++)  { 

for (i=0;i<12; i++)  Fbuf [i] =instring [fmWhere+i+ j*l2 ] ; 

fregs[0] [ j ] =Fbuf [3] +0x3  0; 

fregs [17] [ j]=(Fbuf [0] &0x0f ) +0x3  0; 

fregs  [18]  [  j]  =  (  (Fbuf  [1]  »4  )  &0x0f) +0x30; 

fregs [19] [ j ] = (Fbuf [1] &0x0f ) +0x3  0; 

for (r=17; r<20; r++) 
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if  (  (fregs[r]  [j]<0x30)  |  I  (fregs [r]  [j]>0x39) )  { 

for  (p=0;p<20;p++)  f regs [p] [j ]=0x30; 

NotNumber=l; 

ltoa(dong)  (j)  ,s,2)  ; 

Error ("\pNot  A  Number  ","\por  Infinity 

ii 

"\pln  FPReg.  #  ",s)  ; 

} 

if  ( INotNumber)  { 

if ( (Fbuf [0]&0x80) !=0)  ManSign [j ]=' -' ; 
else 

ManSign [j]='+' ; 
if ( (Fbuf [0]&0x4  0) !=0)  ExpSign [ j ] =' -' ; 
else 

ExpSign [j]='+' ; 
for(i=l,k=4;  k<12;  i+=2,k++)  { 

fregs [i] [ j]   =( (Fbuf [k]>>4) &0x0f )+0x30; 
fregs [i+1]  t j]=(Fbuf [k]&0x0f ) +0x30; 
} 
} 
Not Number =0; 

} 
} 

/*   SEND_FLOAT() 

function : 

-  This  function  downloads  the  Floating  Point  Registers,  to  the  ECB 
arguments : 

called  by: 

-  go () /Monitor  .  c 
calls     : 

-  send ( ) /download . c 

V 
SendFloat  () 

{ 

char  outchar, chksum; 

int  i, j,k; 

long  tempbuf; 

for ( j=0; j<3; j++)  {  /*  First  Send  Control, Staus, I  Registers  */ 

tempbuf =fcregs [ j] &0xff 000000; 
outchar=(char) (tempbuf >>24) ; 
if(j==0)  chksum  =(outchar  &  Oxff)  &  Oxff; 
else 

chksum  ^= (outchar  &  Oxff)  &  Oxff; 
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/*  Control  registers  are  sent  */ 


send(outchar) ; 

tempbuf=fcregs [ j] &0x00ff0000; 
outchar= (char) (tempbuf >>16) ; 
chksum  A= (outchar  &  Oxff)  &  Oxff; 
send(outchar) ; 

tempbuf =fcregs [ j] &0x0000f f 00; 
outchar= (char) (tempbuf>>8) ; 
chksum  A= (outchar  &  Oxff)  &  Oxff; 
send (outchar) ; 

tempbuf=fcregs [ j] &0x000000f f ; 
out char= (char) ( tempbuf >>0) ; 
chksum  A= (outchar  &  Oxff)  &  Oxff; 
send (outchar) ; 

} 
for(j=0; j<8; j++)  { 

if (ManSign[ j ]=='+'  )  Fbuf [0] =0x00; 
else 

Fbuf [ 0] =0x8  0  ; 
if (ExpSignt j]=='+' )  Fbuf  [0]=Fbuf [0]  &  Oxbf; 
else 

Fbuf [0]=Fbuf [0]  |  0x40; 
Fbuf [0]=Fbuf [0] | (fregs [17] [ j]  -  0x30); 

Fbuf[l]  =  (  (  (fregs[18]  [  j]-0x30)«4)  |  (fregs[19]  [  j]-0x30)  ); 
Fbuf [2] =0x00; 
Fbuf [3]=fregs [0]  [j]-0x30; 
for  (i=4,k=l;i<12; i++,  k+=2) 

Fbuf  [i]  =  (  (fregs  [k]  [  j]-0x30)«4)  |  (fregs  [k+1]  [  j]  -0x3  0)  ; 
for (k=0;k<12;k++)  { 

send (Fbuf [k] ) ;  /*  Send  Floating  Point  Registers  */ 

chksum  A=(Fbuf[k]  &  Oxff)  &  Oxff; 
} 
} 
send (chksum) ; 

} 

/*   LAST_SCREEN ( ) 

function : 

-  This  function  displays  the  latest  screen-full  information, 
arguments : 

-  k 
called  by: 

-  doFunct ion () /menu . c 

-  HandleEvent ( ) /download . c 
calls     : 

-  DumptoPrn () /monitor . c 

-  DumptoScreen () /monitor . c 
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LastScreen (k) 
int  k; 

{ 

int  i, lineNum; 
long  difference; 
if(k!=2)  { 
Tail=Head; 
lineNum=0; 
for ( ; ; )  { 

if (lineNum>2  0)  { 
Tail+=2;  break; 

} 
if(Tail<  StartQue)  { 
Tail=EndQue; 
if (Reach)  { 

Tail=St artQue ; break ; 
} 
} 
if ( (*Tail)==0x0a)  lineNum++; 
Tail  —  ; 

} 

difference=Head-Tail+lL; 
if (dif ference<0) 

dif ference= ( (EndQue-Tail) + (Head-StartQue) ) +2L; 
for (i=0;i< (int) (dif f erence) ; i++)  { 

PrintBuf [i] =*Tail; 

Tail++; 

if  (Tail>EndQue)  Tail=StartQue; 

} 
EraseRect (SmyRect) ; 

DumptoScreen ( ( (int) (difference) -2) , SPrintBuf [0] ) ; 
if (k)  DumptoPrn ( ( (int) (difference) -2) , SPrintBuf [0] ) ; 

} 
} 

/*   FILL_QUE() 

function : 

-  This  function  adds  the  latest  data  to  the  circular  queue 
arguments : 

-  index 
called  by: 

-  doFunct ion () /menu . c 

-  dump () /Monitor . c 

-  DisAsm( ) /Monitor . c 
calls     : 

-  None 
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FillQue (index) 
int  index; 

{ 

int  i; 

for (i=0; i<index; i++) 
if (Head>EndQue)  { 
Head=St artQue ; 
Reach=0; 

} 
*Head=PrintBuf [i] 
Head++; 
} 
} 
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XV. 


Source   code   of   disasm.c 


Dassy () 

{ 

extern    long   *SubrAdr; 


/* 

BUFSIZE 

EOT 

FDATA 

FOC 

FOP 

LOCVARSZ 

asm{ 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


80 
4 
4 

31 
39 
16 
*/ 


SIZE  OF  OUTPUT  BUFFER 

DATA  FIELD 
OP-CODE  FIELD 
OPERAND  FIELD 


MOVEM.L  D0-D7/A0- 

LEA  @DECODE,A0 
MOVE.L  A0,SubrAdr 

LEA  @IS2,A0 

LEA  @PGM,A4 

LEA  @ISHIFT,A5 

LEA  @ISH1,A6 

BSR  @SUBR 

LEA  @ISH2,A6 

BSR  @SUBR 

LEA  @ISH3,A6 

BSR  @SUBR 

LEA  @ISH4,A6 

BSR  @SUBR 

LEA  @ISH5,A6 

BSR  @SUBR 

LEA  @ISH6,A6 

BSR  @SUBR 

LEA  @ISH7,A6 

BSR  @SUBR 

LEA  @ISH8,A6 

BSR  @SUBR 


A7,-(SP) / 


THE  FOLLOWING  CODE  (UNTIL  THE  LINE 
/*  DISASSEMBLY  PROGRAM  BEGINS  */), 
CALCULATES  THE  DISPLACEMENT  OF  A 
ROUTINE  HANDLING  ANY  PARTICULAR 
INSTRUCTION  (SUCH  AS  MOVE,  ADD  ETC.) 
FROM  THE  BEGINNING  OF  THE  PROGRAM. 
THIS  DISPLACEMENT  VALUE  IS  THEN 
WRITTEN  INTO  THE  CORRESPONDING 
ENTRY  IN  TABLE  "@TBL" . 


LEA  @FORM10EX,A5 

LEA  @F10EX1,A6 

BSR  @SUBR 

LEA  @F10EX2,A6 

BSR  @SUBR 

LEA  @F10EX3,A6 

BSR  @SUBR 

LEA  @F10EX4/A6 

BSR  @SUBR 
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LEA 

@F10EX5,A6   ; 

BSR 

@SUBR        ; 

LEA 

@F10EX6,A6   ; 

BSR 

@SUBR        ; 

LEA 

@FORM12,A5 

LEA 

@F121,A6     ; 

BSR 

@SUBR        ; 

LEA 

@F122,A6 

BSR 

@SUBR 

LEA 

@F123,A6 

BSR 

@SUBR        ; 

LEA 

@F124,A6 

BSR 

@SUBR 

LEA 

@FORM9,A5    ; 

LEA 

@F91,A6 

BSR 

@SUBR 

LEA 

@FORM8,A5 

LEA 

@F81,A6 

BSR 

@SUBR 

LEA 

@FORM7,A5 

LEA 

@F71,A6 

BSR 

@SUBR 

LEA 

@FORM6D,A5   ; 

LEA 

@F6D1,A6 

BSR 

@SUBR 

LEA 

@F6D2,A6 

BSR 

@SUBR 

LEA 

@F6D3,A6 

BSR 

@SUBR 

LEA 

@F6D4,A6 

BSR 

@SUBR 

LEA 

@F6D5,A6 

BSR 

0SUBR 

LEA 

@FORM10,A5   ; 

LEA 

@F101,A6 

BSR 

@SUBR 

LEA 

@F102,A6 

BSR 

@SUBR 

LEA 

@F103,A6 

BSR 

@SUBR 

LEA 

@FORM12A,A5  ; 

LEA 

@F12A1,A6 

BSR 

@SUBR 
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LEA 

@IM0VEQ,A5   ; 

LEA 

@IMVQ1,A6    ; 

BSR 

@SUBR 

LEA 

@IBSR,A5     ; 

LEA 

@IBSR1,A6    ; 

BSR 

@SUBR        ; 

LEA 

@IBSR2,A6    ; 

BSR 

@SUBR 

LEA 

@ICC,A5 

LEA 

@ICC1,A6     ; 

BSR 

@  SUBR 

LEA 

@IDBCC,A5    ; 

LEA 

@IDBCC1,A6   ; 

BSR 

@SUBR        ; 

LEA 

@SCC,A5      ; 

LEA 

@SCC1,A6     ; 

BSR 

@SUBR        ; 

LEA 

@IQUICK,A5   ; 

LEA 

@IQUICK1,A6  ; 

BSR 

@SUBR        ; 

LEA 

@IQUICK2,A6  ; 

BSR 

@SUBR        ; 

LEA 

@F0RM6A, A5   ; 

LEA 

@F6A1,A6     ; 

BSR 

@SUBR        ; 

LEA 

@F0RM11SL,A5; 

LEA 

@F11SL1,A6   , 

BSR 

@SUBR        ; 

LEA 

@F11SL2,A6 

BSR 

@SUBR        ; 

LEA 

@SC0MM0N,A5  , 

LEA 

@SC0MM0N1,A6, 

BSR 

0SUBR 

LEA 

@SCOMMON2,A6, 

BSR 

@SUBR 

LEA 

@SCOMMON3,A6, 

BSR 

QSUBR 

LEA 

@ S COMMON 4, A6( 

BSR 

@SUBR 

LEA 

@SCOMMON5,A6, 

BSR 

@SUBR 
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LEA 

@ S COMMON 6  ,A6 

BSR 

@SUBR 

LEA 

@ISTOP,A5 

LEA 

@ISTOPl,A6 

BSR 

@SUBR 

LEA 

@IMVFUSP,A5 

LEA 

@IMVFUSP1,A6 

BSR 

@SUBR 

LEA 

@IMVTUSP,A5 

LEA 

@IMVTUSP1,A6 

BSR 

@SUBR 

LEA 

@FORM5,A5 

LEA 

@F51,A6 

BSR 

@SUBR 

LEA 

@FORM4,A5 

LEA 

@F41,A6 

BSR 

@SUBR 

LEA 

@ILINK,A5 

LEA 

(§ILINK1,A6 

BSR 

@SUBR 

LEA 

@IMOVEMTR,A5 

LEA 

@IMVMTR1,A6 

BSR 

@SUBR 

LEA 

@F0RM1A,A5 

LEA 

@F1A1,A6 

BSR 

@SUBR 

LEA 

@F1A2,A6 

BSR 

@SUBR 

LEA 

@FORMl,A5 

LEA 

@F11,A6 

BSR 

@SUBR 

LEA 

@F12,A6 

BSR 

@SUBR 

LEA 

@F13,A6 

BSR 

@SUBR 

LEA 

@F14,A6 

BSR 

@SUBR 

LEA 

@F15,A6 

BSR 

@SUBR 

LEA 

@FORM3,A5 
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LEA 

@F31,A6      ; 

BSR 

@SUBR        ; 

LEA 

@F32,A6      ; 

BSR 

@SUBR 

LEA 

@F33,A6      ; 

BSR 

@SUBR        ; 

LEA 

@IM0VEMFR,A5; 

LEA 

@IMVMFR1,A6  / 

BSR 

@SUBR        ; 

LEA 

@F0RM11,A5   ; 

LEA 

@F111,A6 

BSR 

@SUBR 

LEA 

@IMVTSR,A5   ; 

LEA 

@IMVTSR1,A6  ; 

BSR 

@SUBR 

LEA 

@IMVTCCR,A5  ; 

LEA 

@IMVTCCR1,A6; 

BSR 

@SUBR 

LEA 

@IMVFSR,A5   ; 

LEA 

@IMVFSR1,A6  ; 

BSR 

@SUBR        ; 

LEA 

@IM0VE,A5    ; 

LEA 

@IM0VE1,A6   ; 

BSR 

@SUBR 

LEA 

@IMOVE2,A6   ; 

BSR 

@SUBR        ; 

LEA 

@IMOVE3,A6   ; 

BSR 

@SUBR 

LEA 

@IMMED,A5    ; 

LEA 

@IMMED1,A6   ; 

BSR 

@SUBR        ; 

LEA 

@IMMED2,A6 

BSR 

@SUBR 

LEA 

@IMMED3,A6   ; 

BSR 

@SUBR        ; 

LEA 

@IMMED4,A6 

BSR 

@SUBR 

LEA 

@IMMED5,A6   ; 

BSR 

@SUBR 

LEA 

@IMMED6,A6   ; 

BSR 

@  SUBR 

LEA 

@IM0VEP,A5   ; 
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@SUBR 


LEA 

@IMOVEPl,A6  ; 

BSR 

@SUBR        ; 

LEA 

@ISETS,A5    ; 

LEA 

@ISETS1,A6   ; 

BSR 

@SUBR        ; 

LEA 

@ISETS2,A6   ; 

BSR 

@SUBR        ; 

LEA 

@ISETS3,A6   ; 

BSR 

@SUBR        ; 

LEA 

@ISETS4,A6   ; 

BSR 

@SUBR 

LEA 

@ISETD,A5    ; 

LEA 

@ISETD1,A6 

BSR 

@SUBR        ; 

LEA 

@ISETD2,A6 

BSR 

@SUBR 

LEA 

@ISETD3,A6 

BSR 

@SUBR        ; 

LEA 

@ISETD4,A6   ; 

BSR 

@SUBR        ; 

JMP 

(AO) 

MOVE 

.L  A5,A3      ; 

SUB. 

L   A4 , A3      ; 

MOVE 

.W  A3, (A6)    ; 

RTS 

/* 


DISASSEMBLY  PROGRAM  BEGINS    */ 

CALLING  SEQUENCE: 

D0,D1,D2  Contains  the  code  to  be  Disassembled 

A4  =  Value  of  Program  Counter  for  the  code 

A5  =  Pointer  to  store  data  (BUFSIZE  =  80  assumed) 

JSR    DECODE 

RETURN: 

A4  =  Value  of  Program  Counter  for  next  instruction 

A5  =  Pointer  to  line  as  Disassembled 

A6  =  Pointer  to  End  Of  Line 

01234  5  67  8  901234  5  67  890123  4  5  67  8  901234  5  67  8  90123  4  5  67  8  9 
AAAAAA  FDATA.DDDDDDDDDDDDDD  FOC .  .  .  .  FOP 


*/ 
@PGM 

/* 


NOP 
MOVEM  REGISTERS  TO  EA 
01001D001S 


XXXXXX 


;BASE  ADDRESS  THIS  MODULE 


EFFECTIVE  ADDRESS 
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.  .0 

.  .1 

0. 

1  . 

/ 

IMOVEMFR 

:BSR 

QMOVEMS 

MOVE.L 

#0X0038, D6 

AND.W 

(A4) ,D6 

CMP.W 

#0X0020, D6 

BEQ.S 

0IM7788 

MOVE.L 

#1,D6 

MOVE.L 

#0,D1 

BRA.S 

@IM7799 

IM7788: 

MOVE.L 

#-l,D6 

MOVE.L 

#15, Dl 

IM77  99: 

BSR 

@ MOVE MR 

MOVE.B 

#'  ,'  ,  (A6)  + 

ADD.L 

#2,D3 

MOVE.W 

(A4) ,D4 

MOVE.W 

#0X1F4,D7 

BSR 

@EA 

BRA.S 

@CS16 

* 

MOVEM 

EA   TO  REGISTERS 

IMOVEMTR 

:BSR 

0MOVEMS 

ADD.L 

#2,D3 

MOVE.W 

#0X7EC,D7 

BSR 

@EA 

MOVE.B 

#',',  (A6)  + 

MOVE.L 

#1,D6 

MOVE.L 

#0,D1 

BSR 

@ MOVE MR 

CS16: 

BRA 

@CS15 

I STOP: 

MOVE.W 

2 (A4) ,D0 

MOVE.B 

#'#',  (A6)  + 

MOVE.B 

#'$',  (A6)  + 

BSR 

@PNT4HX 

BRA 

@ COMMON 4 

IMMED: 

BSR 

QFORMSIZE 

ADD.L 

#2,D3 

MOVE.B 

#'#', (A6)+ 

CLR.L 

DO 

MOVE.W 

2 (A4) ,D0 

MOVE.W 

(A4),D1 

LSR.W 

#6,D1 

AND.W 

#3,D1 

BEQ.S 

@IMMED65 

CMP.B 

#1,D1 

BEQ.S 

@IMMED7  5 

ADD.L 

#2,D3 

WORD 

LONG 

REGISTER  TO  MEMORY 

MEMORY  TO  REGISTER 

SIZE 


1,4 
1/4 


PREDECREMENT  MODE 

D6  =  INCREMENTER  (BIT  POSITION) 

Dl  =  BIT  POSITION 

D6  =  DECREMENTER  (BIT  POSITION) 
Dl  =  BIT  POSITION 
BUILD  MASK  WORD 
STORE  COMMA 


CONTROL  +  PREDECREMENT 
COMMON 

*/ 

SIZE 

CONTROL  +  POSTINCREMENT 

STORE  COMMA 

D6  =  BIT  POSITION  INCREMENTER 

Dl  =  BIT  POSITION 

COMMON 

IMMEDIATE 

HEX 

VALUE 

ADD   AND   CMP  #   EOR   OR   SUB 

SIZE  =  4 

IMMEDIATE 

DO  =  EXTENSION  WORD 


BYTE 

WORD 
.LONG 


SIZE  =  6 
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MOVE.L 

2 (A4) ,D0 

@IMMED45: 

BSR 

(3HEX2DEC 

MOVE.B 

D5,  (A6)  + 

MOVE 

(A4) ,D0 

AND.W 

#0X003F,D0 

CMP.W 

#0X0030,00 

BNE.S 

@IMMED55 

MOVE.W 

(A4)  ,  DO 

AND.W 

#0X4000, DO 

BNE 

@FERROR 

MOVE.W 

(A4),D1 

AND.W 

#0X00C0,D1 

CMP.W 

#0X0080, Dl 

BEQ 

0FERROR 

MOVE.W 

<A4),D1 

BTST.L 

#6,D1 

BNE 

@STAT 

MOVE.B 

#'C,  (A6)  + 

MOVE.B 

#'C,  (A6)  + 

MOVE.B 

#'R',  (A6)  + 

BRA.S 

@CS14 

@STAT: 

MOVE . B 

#'S',  (A6)  + 

MOVE.B 

#'R',  (A6)  + 

@CS15: 

BRA.S 

@CS14 

@IMMED55: 

BSR 

@EA 

BRA.S 

@CS14 

@IMMED65 : 

MOVE.L 

D0,D1 

LSR.W 

#8,D1 

BEQ.S 

@IMMED75 

MOVE.L 

D0,D1 

ASR.W 

#7,D1 

ADD.W 

#1,D1 

BNE 

@FERROR 

IMMED75: 

EXT.L 

DO 

BRA 

0IMMED45 

DO  =  LONG  EXTENSION  WORD 

DECIMAL 

COMMA  SEPARATOR 


DESTINATION  ADDRESS  MODE  111100  "SF 

NOT  FOUND 

"SR"   ILLEGAL  FOR 

ADDI    SUBI   CMP I 

0600    0400   0C00 


.LONG  NOT  ALLOWED 


#,  CCR  FOR  AND I,  EORI,  ORI 


COMMON 

#,SR  FOR  AND I,  EORI,  ORI 

COMMON 

COMMON 

Dl  =  XXXXXXXX 

Dl  =  00000000XXXXXXXX 


CHECK  FOR  NEGATIVE 


BIT   5432109876543210 

. . . .RRRMMM. . . .  DESTINATION  REGISTER  MODE 

MMMRRR  SOURCE  MODE  REGISTER 

0001 .BYTE 

0011 .WORD 

0010 .LONG 

IF  BYTE  SIZE,  DESTINATION  ADDRESS  DIRECT  NOT  ALLOWED. 


COMMA  SEPARATOR 


*/ 

@IMOVE: 

BRA 

0IMOVEA1 

@ILINK: 

BSR.S 

0FORMREGA 

MOVE.B 

D5, (A6) + 

MOVE.B 

#'#',  (A6)  + 

MOVE .W 

2 (A4) ,D0 

EXT.L 

DO 
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BSR 

QHEX2DEC 

BRA 

@ COMMON 4 

@F0RM1  : 

BSR 

@FORMSIZE 

/* 

NBCD 

TAS 

@F0RM1A: 

BSR 

@EA 

@CS14: 

BRA 

QCS13 

@F0RM3  : 

BSR.S 

0FORMREGD 

BRA.S 

@CS13 

0FORM4  : 

MOVE . B 

#('#'),  (A6)  + 

MOVE.W 

(A4) ,D0 

AND.L 

fOXOF^DO 

BSR 

@HEX2DEC 

BRA.S 

@CS13 

@F0RM5 : 

BSR.S 

@FORMREGA 

BRA.S 

@CS13 

/* 

5432109876543210 

. . . .RRR. 

, xxxxxx 

*/ 

0FORM6A: 

MOVE.W 

#0X7E4,D7 

BSR.S 

@EA10 

MOVE.B 

D5, (A6) + 

MOVE.W 

(A4) ,D4 

ROL.W 

#7,D4 

BSR.S 

@FORMREGA 

BRA.S 

@CS13 

/* 

BIT   5432109876543210 

.  .  .  .DDD. 

, , XXXXXX 

*/ 

@F0RM6D : 

MOVE.W 

#0XFFD,D7 

BSR.S 

@EA10 

MOVE.B 

D5, (A6) + 

MOVE.W 

(A4) ,D4 

ROL.W 

#7,D4 

BSR.S 

0FORMREGD 

BRA.S 

@CS13 

3F0RMREGA 

: MOVE . B 

#'A',  (A6)  + 

3FORMREG5 

:AND.B 

#0X07, D4 

OR.B 

#('0'),D4 

MOVE.B 

D4, (A6) + 

RTS 

3F0RMREGD 

:  MOVE  .  B 

#('D'),  (A6)  + 

BRA 

@FORMREG5 

(* 

BIT   5432109876543210 

. . . .DDD. 

DDD 

"/ 

DECIMAL  DISPLACEMENT 
CLR   NEG   NEGX   NOT  TST 

I 

DATA  ALTERABLE  ONLY 

COMMON 

EXT   SWAP 

COMMON 

TRAP 


DECIMAL 
COMMON 
UNLNK 
COMMON 


ADDRESS  REGISTER 
EFFECTIVE  ADDRESS 


CONTROL  ADDRESSING 
COMMA  SEPARATOR 


COMMON 


DATA  REGISTER 
EFFECTIVE  ADDRESS 


CHK  DIVS  DIVU  MULS  MULU  DATA  , ADRESG 
COMMA  SEPARATOR 


COMMON 
FORMAT  A@ 


FORMAT  D@ 


DATA  REGISTERS 
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@F0RM7 : 

ROL.W      #7,D4 

BSR        @FORMREGD 

MOVE.B     D5, (A6) + 

MOVE.W     (A4),D4 

BSR        @FORMREGD 

BRA.S      @CS13 

/* 

BIT   5432109876543210 

.  .  .  .AAA AAA 

*/ 

@F0RM8 : 

ROL.W      #7,D4 

BSR        @FORMREGA 

@FORM815 : 

MOVE.B     #' , ' , (A6) + 

MOVE.W     (A4),D4 

BSR        0FORMREGA 

@CS13: 

BRA        @CS12 

/* 

BIT   5432109876543210 

. . . .DDD 

AAA 

*/ 

0FORM9 : 

ROL.W      #7,D4 

BSR        @FORMREGD 

BRA        @FORM815 

@EA10: 

BRA        @EA 

/* 

5432109876543210 

AAAAAA 

MMM 

.... RRR 

011 

Ill 

000 

0 

1 

00 

01 

10 

EXG 

COMMA  SEPARATOR 

COMMON 

ADDRESS  REGISTERS 
EXG 
COMMA  SEPARATOR 

COMMON 


DATA  REGISTER 
ADDRESS  REGISTER 


EXG 

DATA  REGISTER 


EFFECTIVE  ADDRESS 
OP -MODE 
D-REGISTER 
WORD   EA,  A@ 
LONG   EA,  A@ 

EA,  D@  BYTE  (ADDRESS  REGISTER  DIREC 
NOT  ALLOWED) 
EA,  D@ 
D@,  EA 
BYTE 
WORD 
LONG 


ADD  <EA>,A@    CMP  <EA>,A@    SUB  <EA>,A@ 


QFORM10EX: MOVE.W 

#0XFFF,D7 

•ADD 

CMP   SUB,AI 

MOVE.L 

D4,D0 

AND.W 

#0X01C0,D0 

BEQ.  S 

QFORM103 

.  .  .000 

CMP.W 

#0X01C0,D0          , 

BEQ.  S 

@FORM10E3 

.  .  .  Ill 

CMP.W 

#0X00C0,D0 

BNE.S 

@FORM10E6            , 
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MOVE.B 

#'  .',  (A5)  + 

MOVE.B 

#'W,  (A5)  + 

BRA.S 

@FORM10E4 

@FORM10E3 

: MOVE . B 

#'.', (A5)+ 

MOVE.B 

#'L', (A5)+ 

@FORM10E4 

:BSR 

@EA10 

MOVE.B 

D5,  (A6)  + 

MOVE.W 

(A4) ,  D4 

ROL.W 

#7,D4 

BSR 

@FORMREGA 

BRA.S 

@CS12 

3FORM10E6 

:BTST.B 

#0,  (A4) 

BNE.S 

@FORM105 

BRA.S 

@FORM104 

f* 

5432109876543210 

,     AAAAAA 

MMM 

. . . .RRR 

0 

1 

.00 

.01 

.10 

*/ 

3FORM10: 

BTST.B 

#0, (A4) 

BNE.S 

@FORM105 

3FORM103: 

MOVE . W 

#0XFFD,D7 

3FORM104 : 

BSR 

@FORMSIZE 

BSR 

@EA10 

MOVE.B 

D5, (A6) + 

MOVE.B 

(A4) ,D4 

LSR.B 

#1,D4 

BSR 

(3FORMREGD 

BRA.S 

@CS12 

3FORM105: 

BSR 

@FORMSIZE 

MOVE.B 

(A4)  ,D4 

LSR.B 

#1,D4 

BSR 

@FORMREGD 

MOVE.B 

D5,  (A6)  + 

MOVE.W 

(A4) ,D4 

MOVE.W 

#0X1FD,D7 

/* 

PEA 

(JMP       JSR) 

BSR 

@EA10 

KS12: 

BRA 

@ COMMON 

?F0RM11 : 

MOVE.W 

#0X7E4,D7 

BSR 

@EA10 

BRA.S 

@CS12 

011 


STORE  PERIOD 


STORE  COMMA  SEPARATOR 


<EA>,A@ 
COMMON 


EFFECTIVE  ADDRESS 

OP -MODE 

D-REGISTER 

EA,D@ 

D@,EA 

BYTE 

WORD 

LONG 


AND   EOR   OR 

DATA  ADDRESSING 

<EA>,D@ 

COMMA  SEPARATOR 


D@,<EA> 
<EA>,D@ 


COMMON 
DQ,<EA> 


COMMA  SEPARATOR 

ALTERABLE  MEMORY  ADDRESSING 

7 

CONTROL  ADDERSSING 
COMMON 


105 


JMP   JSR 


@F0RM11SL 

: MOVE . L 

D4,D0 

AND.W 

#0X3F,D0 

CMP.W 

#0X38, DO 

BNE.S 

@FORM112 

MOVE.B 

#' .',  (A5)+ 

MOVE.B 

#'S', (A5)  + 

0FORM112 : 

CMP.W 

#0X39, DO 

BNE.S 

0FORM114 

MOVE.B 

#'  .',  (A5)  + 

MOVE.B 

#'L', (A5)+ 

0FORM114 : 

BRA 

@FORMll 

/* 

BIT  5432109876543210 

. . . .XXX 

.  .  .  .0.  .  . 

....  XXX 

.  .  .  .1.  .  . 

. . . .XXX 

00 

01 

10 

.  .  .  .0.  .  . 

.  .  .  .  1 .  .  . 

.... oxxx 

.... 1XXX 

*/ 

@F0RM12: 

BSR 

@FORMSIZE 

BTST 

#3,D4 

BNE.S 

@FORM125 

BSR 

@FORMREGD 

MOVE.B 

D5, (A6) + 

MOVE.B 

(A4) ,  D4 

LSR.B 

#1,D4 

BSR 

@FORMREGD 

BRA.S 

@CS11 

@FORM125 : 

MOVE.B 

#'-',  (A6)  + 

MOVE.B 

#'  (',  (A6)  + 

BSR 

0FORMREGA 

MOVE.L 

#0X282D2C29,D0 

BSR.S 

@SCHR 

MOVE.B 

(A4) ,D4 

LSR.B 

#1,D4 

BSR 

@FORMREGA 

MOVE.B 

#')',  (A6)  + 

BRA.S 

@CS11 

/* 

BIT  5432109876543210 

....  XXX 

.  .  .  .  1.  .  . 

....  XXX 

00 

01 

10 

. . . . 1.  . . 

DATA  DESTINATION  REGISTER 

ADDRESS  REGISTER 

BYTE 

WORD 

LONG 

DATA  REGISTER  TO  DATA  REGISTER 

MEMORY  TO  MEMORY 

DATA  SOURCE  REGISTER 

ADDRESS  SOURCE  REGISTER 

ABCD   ADDX   SBCD   SUBX 


D@,D@  FORMAT  SOURCE 
COMMA  SEPARATOR 


FORMAT  DESTINATION 
COMMON 


'  (- 


(-,)' 


ADDRESS  REGISTER 

BYTE 

WORD 

MLONG 

MEMORY  TO  MEMORY 


DESTINATION 
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1XXX 


*/ 

@F0RM12A 


0CS11: 

@IQUICK 

/* 


BSR  @FORMSIZE 

MOVE.B  #' (' , (A6) + 

BSR  QFORMREGA 

MOVE.L  #0X282C2B29,D0 

BSR.S  @SCHR 

MOVE.B  (A4),D4 

LSR.B  #1,D4 

BSR  @FORMREGA 

MOVE.B  #' )  '  ,  (A6)  + 

MOVE.B  #'+' , (A6) + 

BRA  @ COMMON 

BRA  @IQUICKA 
BIT  5432109876543210 


ADDRESS  SOURCE  REGISTER 


CMPM 

( 
A@ 

STORE  CHARS 


A@ 


ADDQ   SUBQ 


0111.  .  .( 
.... RRR 

). 

FIXED 

DATA  REGISTER 

*/ 

(1IMOVEQ: 

DDDDDDDD 

SIGN  EXTENDED  DATA 

MOVE.B 

#'#',  (A6)  + 

•IMMEDIATE 

MOVE.W 

(A4) ,D0 

EXT.W 

DO 

EXT.L 

DO 

BSR 

0HEX2DEC 

•DECIMAL 

MOVE.B 

D5, (A6) + 

•COMMA  SEPARATOR 

ROL.W 

#7,D4 

BSR 

0FORMREGD 

BRA 

@CS11 

•  COMMON 

@SCHR: 

MOVE . B 
LSR.L 

DO,  (A6)  + 
#8, DO 

•OUTPUT  STRING 

BNE 

@SCHR 

•MORE  TO  OUTPUT 

RTS 

/* 

MOVE  FROM 

STATUS  REGISTER 

(SR] 

*/ 

@IMVFSR: 

MOVE.L 
BSR 

#(0X2C5253) ,D0 
@SCHR 

•',RS'   SR, 

BSR 

@EA 

:DATA  ALTERABLE 

BRA 

@CS11 

•  COMMON 

/* 

MOVE  FROM 

USP  (USER  STACK 

POII 

JTER)   */ 

@IMVFUSP: 

MOVE.L 

BSR 

BSR 

#(0X2C505355) ,DC 

@SCHR 

0FORMREGA 

, 

•USP,  ",PSU" 

BRA 

@CS11 

•  COMMON 

/* 

MOVE  TO 

SR  (STATUS  REGISTER)  1 

"/ 

9IMVTSR: 

MOVE . W 
BSR 

#0XFFD,D7 
@EA 

•DATA  ADDRESSING 

MOVE.L 

#(0X52532C) ,D0 

•SR  "RS, " 

3IMVT44 : 

BSR 

@SCHR 
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BRA 


0CS11 


; COMMON 


/* 

QIMVTUSP 


/* 
(3IMVTCCR 


MOVE  TO  USP  (USER  STACK  POINTER)   */ 
BSR        QFORMREGA 

MOVE.L     #(0X5053552C) ,D0    / , USP  "PSU, " 
BRA        @IMVT44 

MOVE  TO  CCR  (CONDITION  CODE  REGISTER)   */ 
MOVE.W     #0XFFD,D7  ;DATA  ADDRESSING 

BSR        @EA 

MOVE.L     #  (0X5243432C)  ,D0    ; , CCR  "RCC, " 
BRA        @IMVT44 


FIXED 

DATA  REGISTER 

MEMORY  TO  REGISTER 

REGISTER  TO  MEMORY 

WORD 

LONG 

ADDRESS  REGISTER 


D@,#(A@) 

"LW" 

USE  "W" 
USE  "LM 
LENGTH 


/* 

BIT   5432109876543210 

0000.  .  . 

L .  .001.  .  . 

....  XXX 

.  0 

.  1 

.  .0 

.  .  1 

XXX 

*/ 

@IMOVEP: 

MOVE . B 

#'  .',  (A5)  + 

MOVE.W 

# (0X4C57) ,D0 

BTST 

#6,D4 

BEQ.S 

@IMOVEPll 

LSR.W 

#8, DO 

@IMOVEPll 

: MOVE . B 

DO, (A5) + 

MOVE.B 

(A4) ,D4 

LSR.B 

#1,D4 

BTST.B 

#7, 1(A4) 

BEQ.S 

(3IMOVEP35 

BSR 

@FORMREGD 

MOVE.B 

D5,  (A6)  + 

MOVE.W 

(A4) ,D4 

BSR.S 

@IMOVEP66 

@CS20: 

BRA 

@ COMMON 4 

@IMOVEP35 

:  BSR.S 

@IMOVEP66 

MOVE.B 

D5, (A6) + 

MOVE.B 

(A4)  ,D4 

LSR.B 

#1,D4 

BSR 

0FORMREGD 

BRA 

@CS20 

@IMOVEP6  6 

: MOVE . B 

#'$',  (A6)  + 

MOVE.W 

2 (A4) ,D0 

BSR 

@PNT4HX 

MOVE.B 

#'  (',  (A6)  + 

MOVE.W 

(A4) ,D4 

BSR 

@FORMREGA 

MOVE .B 

#')', (A6)+ 

D@, 0XHHHH(A@) 
COMMA  SEPARATOR 


0XHHHH(A@)  ,D@ 
COMMA  SEPARATOR 


COMMON 4 

FORMAT  DISPLACEMENT 
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@ SCOMMON 
@SCC: 


@IDBCC: 


RTS 

BRA 

BSR 

BSR 

BRA 

MOVE.W 

BSR 

MOVE.B 

MOVE.B 

BSR 

BRA.S 


@ COMMON 

@ICCCC 

@EA 

@ SCOMMON 

(A4)  ,D4 

@FORMREGD 

D5,  (A6)  + 

#'$',  (A6)  + 

@ICCCC 

0ICC55 


NOP  RESET  RTE  RTR  RTS  TRAPV 
GET  REST  OF  OP-CODE 
DATA  ALTERABLE 

DB — 

COMMA  SEPARATOR 
HEX  FIELD  TO  FOLLOW 


*/ 

@ICC: 

@IBSR 


@ICC35 


@ICC55: 


BIT   5432109876543210 

0110 

.  .  .  .CCCC 

DDDDDDDO 

1 


BSR 

MOVE.B 

TST.B 

BEQ.S 

MOVE.B 

MOVE.B 

EXT.W 

EXT.L 

ADD.L 

ADD.L 

MOVE.L 

ASR.L 

BCS 

BSR 

BRA 

ADD.L 

MOVE.W 

MOVE.B 

MOVE.B 

BRA 


@ICCCC 
#'$',  (A6)  + 
D4 
@ICC55 


(A5)  + 
(A5)  + 


#'  •  ', 
#'S', 
D4 
D4 

A2,D4 

#2,D4 

D4,D0 

#1,D4 

@FERROR 

(3PNT6HX 

6 SCOMMON 

#2,D3 

2 (A4) ,D4 


# 


(A5)  + 


#'L', (A5)+ 
@ICC35 


FIXED 

CONDITION 

DISPLACEMENT 

ERROR  (ODD  BOUNDRY  DISPLACEMENT) 


B  — 
BSR 


BRA 
BIT  DISPLACEMENT 


8  BIT  DISPLACEMENT 
SIGN-EXTENDED  DISPLACEMENT 
+  PROGRAM  COUNTER 
+  TWO 


ODD  BOUNDRY  DISPLACEMENT 


SIZE 


L    FOR    16    BIT    DISPLACEMENT 


/* 

3ISETD: 

HSETD12 


§CS18: 

/* 


BCHG       BCLR      BSET      BTST 


ROL.W 

BSR 

MOVE.B 

MOVE.W 

BSR 

BRA 


#7,D4 
0FORMREGD 
D5,  (A6)  + 
(A4) ,D4 
@EA 
@ SCOMMON 


*/ 

DYNAMIC  BIT 
DATA  REGISTER 
COMMA  SEPARATOR 

DATA  ALTERABLE 


BCHG   BCLR   BSET   BTST 

1ST  WORD   XX  XXXX 

2ND  WORD   0000  0000  000Y  YYYY 


EA    DATA  ALTERABLE  ONLY 
BIT  NUMBER 
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*/ 

@ISETS: 


ADD.L 

MOVE.B 

CLR.L 

MOVE.W 

MOVE.L 

LSR.L 

BNE 

BSR 

BRA 


#2,D3 

#'#',  (A6)  + 

DO 

2 (A4) ,D0 

D0,D1 

#5,D1 

6FERROR 

0HEX2DEC 

0ISETD12 


BIT   5432109876543210 

....  XXX 

0 

1 

00 

01 

10 

...  .0.  .  .11 

.  .  .  .0.  .  .11AAAAAA 

0 

1 


*/ 

@ISHIFT 


0ISHIFT13 


0ISHIFT23 


0ISHIFT33 
8ISHIFT44 


@CS17: 
@ISHIFTM1 


MOVE . W 

BTST 

BEQ.  S 

LSR.W 

MOVE . B 

MOVE.W 

AND.W 

CMP.W 

BEQ.S 

BSR 

ROL.W 

BTST 

BNE.S 

AND.B 

BNE.S 

OR.B 

OR.B 

MOVE.B 

MOVE.B 

BRA.S 

BSR 

MOVE . B 

MOVE.W 

BSR 

BRA 

MOVE . B 

MOVE.B 


# (0X4C52) ,D0 
#8,D4 
@ISHIFT13 
#8,  DO 
DO, (A5) + 
(A4) ,D0 
#0X00C0,D0 
#0X00C0,D0 
@ISHIFTM1 
@FORMSIZE 
#7,D4 
#12, D4 
@ISHIFT33 
#0X07, D4 
@ISHIFT23 
#0X08, D4 
#'0' ,D4 
#'#',  (A6)  + 
D4,  (A6)  + 
@ISHIFT44 
0FORMREGD 
D5,  (A6)  + 
(A4) ,D4 
GFORMREGD 
@CS18 

#' .', (A5)+ 
#'W'  ,  (A5)  + 


STATIC  BIT,  SIZE 
IMMEDIATE 

GET  BIT  POSITION  FROM  2ND  WORD 


DECIMAL 


IMMEDIATE  COUNT/REGISTER 

RIGHT  SHIFT 

LEFT  SHIFT 

BYTE 

WORD 

LONG 

WORD  (MEMORY) 

EFFECTIVE  ADDRESS 

SHIFT  IMMEDIATE  COUNT 

SHIFT  COUNT  (MODULO  64) 


IN  DATA  REG 


'LR'  AS-   LS-   RO-   ROX- 

DIRECTION  BIT 

RIGHT 

LEFT 

DIRECTION  "L"  OR  "R" 


MEMORY  SHIFT 


I/R  BIT 

COUNT  IN  REGISTER 

IMMEDIATE  COUNT 

CHANGE  ZERO  TO  EIGHT 


COMMA  SEPARATOR 


COMMON 
PERIOD 
.WORD 
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BTST 

#11 

-D4 

BNE 

QFERROR 

MOVE.W 

#0X1FC,D7 

BSR 

@EA 

BRA 

@CS17 

MOVE.L 

#0X0F,D0 

AND.B 

(A4 

>,D0 

LSL.L 

#1,D0 

MOVE.L 

A0,- 

"(SP) 

LEA 

@BRTBL,A0 

ADD.L 

D0,A0 

MOVE.B 

(A0 

I  ,D1 

LSL.L 

#4,D1 

LSL.L 

#4,D1 

MOVE.B 

1(A0) ,D1 

MOVE.L 

(SP 

l+,A0 

MOVE.W 

@BRTBL(PC,D0 

.W) ,D1 

MOVE.B 

Dl, 

(A5)  + 

LSR.W 

#8,D1 

CMP.B 

#'     ' 

'.Dl 

BEQ.S 

@ICCCC9 

MOVE.B 

Dl, 

(A5)  + 

RTS 

DC.B 

i      r 

l  mf 

DC.B 

i      i 

r'F'         , 

rF' 

,     i 

DC.B 

'i' ! 

r'H'         , 

'H' 

,  '!' 

DC.B 

'  S'  , 

'L'     , 

'L'  , 

,  'S' 

DC.B 

'C  , 

'C    , 

'C, 

,  'C 

DC.B 

'  S'  , 

r'C        , 

'C 

,  'S' 

DC.B 

'E'  , 

'N'     , 

'N', 

,  'E' 

DC.B 

'Q'  i 

r'E'         , 

'E', 

,'Q' 

DC.B 

'C  , 

fv    , 

'  V  , 

,  'C 

DC.B 

'S'  , 

'V     , 

'V 

,  'S' 

DC.B 

'L'  , 

'P'  , 

'P'  , 

,  'L' 

DC.B 

'  I'  - 

,  'M'     , 

'M' , 

,  'I' 

DC.B 

'E'  , 

'6'     , 

'G', 

-  'E' 

DC.B 

r  mr 

-'L'         , 

'L' 

f  rn/ 

DC.B 

f   rnf 

-'G'     , 

'G' 

,  rn  i 

DC.B 

'E'  . 

-'L'     , 

'L' 

,  'E' 

BIT      54321098' 

76543^ 

>10 

.... RRRMMM . , , 

MMMI 

*RR 

BIT  11  MUST  BE  ZERO 

MEMORY  ALTERABLE  ADDRESSING 

COMMON 

APPEND  CONDITION  CODE 

DO  =  CCC 

DO  =  CCC*2 


1,4 

1,4 


GET  BRANCH  MNEMONIC 
(REVERSED)  FROM  THE  TABLE 
AND  ADD  THE  NONBLANK  PORTION 
TO  THE  BUFFER. 


'T'  ,  ' 


BRA  ACCEPTED 


DESTINATION  REGISTER  MODE 
SOURCE  MODE  REGISTER 


IF  BYTE  SIZE,  ADDRESS  DIRECT  NOT  ALLOWED  AS  SOURCE 


MOVE . W 
BSR 
MOVE.B 
MOVE.W 


#0XFFF,D7 
@EA 

D5, (A6) + 
(A4) ,  D4 


ALL  MODES 

COMMA  SEPARATOR 
. . . .RRRMMM 


Ill 


LSR.W 

#1,D4 

RRRMMM 

LSR.B 

#5,D4 

' RRR MMM 

ROR.W 

#8,D4 

• MMM RRR 

LSL.B 

#5,D4 

• MMMRRR 

LSR.W 

#5,D4 

: MMMRRR 

/* 

IF  .BYTE  DESTINATION  A@  NOT  ALLOWED   */ 

MOVE.W 

#0X1FF,D7            , 

•DATA  ALTERABLE  +  A@ 

MOVE.B 

(A4),D0              , 

CMP.B 

#0X01, DO 

BNE.S 

0IMOVE19             , 

•NOT  BYTE  SIZE 

MOVE.W 

#0X1FD,D7            , 

•DATA  ALTERABLE 

@IM0VE19: 

BSR 

@EA 

BRA.S 

@CS19 

•  COMMON 

/* 

IF  BYTE, 

ADDRESS  REGISTER  DIRECT  NOT  ALLOWED   */ 

@IQUICKA: 

BSR.S 

@FORMSIZE           , 

:ADDQ   SUBQ 

MOVE.B 

#'#', (A6)+ 

ROL.W 

#7,D4 

AND.B 

#7,D4 

BNE.S 

@IQUICK21 

OR.B 

#8,D4 

•MAKE  ZERO  INTO  EIGHT 

@IQUICK21 

:OR.B 

#'0',D4 

rMAKE  ASCII 

MOVE.B 

D4,  (A6)  + 

MOVE.B 

D5,  (A6)  + 

; COMMA  SEPARATOR 

MOVE.W 

(A4),D4 

MOVE.W 

(A4) ,D0 

AND.W 

#0X00C0,D0 

BEQ.S 

@IQUICK31 

;DATA  ALTERABLE 

MOVE.W 

#0X1FF,D7 

: ALTERABLE  ADDRESSING 

0IQUICK31 

:BSR 

@EA 

@CS19: 

BRA 

@ COMMON 

/* 

BIT    5432109876543210 

00 BYTE 

01 WORD 

10 LONG 

11 ERROR 

*/ 

@FORMSIZE 

: MOVE . W 

(A4) ,  D2 

MOVE.B 

#'  .',  (A5)  + 

; STORE  PERIOD 

LSR.W 

#6,D2 

AND.W 

#0X03, D2 

BNE.S 

@FORM91 

MOVE  .B 

#'B', (A5)+ 

r STORE  "B" 

BRA.S 

@FORM95 

8FORM91: 

MOVE . B 

#'W',D0 

CMP.B 

#1,D2 

BEQ.S 

@FORM93 

MOVE.B 

#'L',D0 
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(3FORM93 
@FORM95 
@EAOOO: 


@EA001 


@EA010 


@EA011 


3EA011RTS 
9EA100: 


3FE10 


CMP.B 

BNE.S 

MOVE . B 

RTS 

BSR 

BTST 

BEQ.S 

RTS 

BSR 

BTST 

BEQ.S 

RTS 

MOVE . B 

BSR 

MOVE.B 

BTST 

BEQ.S 

RTS 

MOVE.B 

BSR 

MOVE.B 

MOVE.B 

BTST 

BEQ.S 

RTS 

MOVE . B 

MOVE.B 

BSR 

MOVE.B 

BTST 

BNE 

BRA 


#2,D2 
@FE10 
DO, (A5) + 

0FORMREGD 

#0,D7 

@FE10 

@FORMREGA 

#1,D7 

@FE10 

#'  (',  (A6)  + 
@FORMREGA 
#')',  (A6)  + 

#2,D7 
@FE10 

#'  (',  (A6)  + 

@FORMREGA 
#')',  (A6)  + 
#'+',  (A6)  + 
#3,D7 
@FE10 

#'-',  (A6)  + 
#'  (',  (A6)  + 
(3FORMREGA 
#')',  (A6)  + 
#4,D7 
@EA011RTS 
@ FERROR 


FERROR 

STORE  "W"  OR  "L" 


FERROR 


FERROR 


THIS  MODE  NOT  ALLOWED 


FERROR 


THIS  MODE  NOT  ALLOWED 


FERROR 


THIS  MODE  NOT  ALLOWED 


THIS  MODE  NOT  ALLOWED 


*/ 
3EA: 


A4  =  POINTER  TO  FIRST  WORD 
D3  -  OFFSET  TO  EXTENSION 
D4  =  VALUE  TO  PROCESS 
D7  =  MODES  ALLOWED  MASK 


MOVE . L 

LSR.W 

AND.W 

BEQ 

CMP.B 

BEQ 

CMP.B 

BEQ 

CMP  .B 

BEQ 

CMP.B 

BEQ 


D4,D0 
#3, DO 
#0X7, DO 
@EA000 
#1,D0 
@EA001 
#2, DO 
6EA010 
#3, DO 
0EAO11 
#4, DO 
@EA100 
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CMP.B 

#5, DO 

BEQ.S 

@EA101 

CMP.B 

#7, DO 

BEQ 

@EA111 

/* 

EXTENSION 

WORD 

/* 

BIT   5432109876543210 
0 

1 

.RRR 

. . . .0. . . . 

....  1  ...  . 

000. 

DDDDDDDD 

EA110 

*/ 

BTST 

#6,D7 

BEQ 

@FE10 

MOVE.B 

0 (A4,D3) ,D1 

LSL.L 

#4,D1 

LSL.L 

#4,D1 

MOVE.B 

1  (A4,D3)  ,D1 

AND.W 

#0X0700, Dl 

BNE 

@FE10 

MOVE.B 

0 (A4,D3) ,D0 

LSL.L 

#4, DO 

LSL.L 

#4, DO 

MOVE.B 

1  (A4,D3)  ,  DO 

EXT.W 

DO 

EXT.L 

DO 

BSR 

0HEX2DEC 

MOVE.B 

#'  ('  ,  (A6)  + 

BSR 

0FORMREGA 

MOVE.B 

#',', (A6)+ 

MOVE.B 

0  (A4,D3) ,D4 

ASR.B 

#4,D4 

BPL.S 

0EA11O5 

BSR 

@FORMREGA 

BRA.S 

0EA11O7 

@EA1105: 

BSR 

0FORMREGD 

@EA1107 : 

MOVE.B 

#'  .'  ,  (A6)  + 

MOVE.B 

0 (A4,D3) ,D4 

LSL.L 

#4,D4 

LSL.L 

#4,D4 

MOVE.B 

1 (A4,D3) ,D4 

MOVE.B 

#'W  ,D0 

BTST 

#11, D4 

BEQ.S 

0EA11O9 

MOVE.B 

#'L',D0 

0EA11O9: 

MOVE . B 

DO,  (A6)  + 

7 


DATA  REGISTER 

ADDRESS  REGISTER 

REGISTER 

SIGN  EXT.,  LOW  ORDER  INT.  IN  INDEX  I 

LONG  VALUE  IN  INDEX  REGISTER 

DISPLACEMENT  INTEGER 

ADDRESS  REGISTER  INDIRECT  WITH  INDE: 


FERROR 


THIS  MODE  NOT  ALLOWED 


FERROR     BITS  10-8  MUST  BE  ZERO 
DO  =  DISPLACEMENT 


DECIMAL 
( 

XX  (A@ 
XX (A@, 


XX(A@,X@ . 
D4  =  R@ 


W 
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MOVE.B 

#')', (A6)+ 

ADD.L 

#2,D3 

RTS 

ADDRESS  1 

REGISTER  INDIR 

BTST 

#5,D7 

BEQ.S 

@FE11 

MOVE.B 

0  (A4,D3) ,D0 

LSL.L 

#4, DO 

LSL.L 

#4, DO 

MOVE.B 

1 (A4,D3) ,D0 

EXT.L 

DO 

BSR 

@HEX2DEC 

ADD.L 

#2,D3 

BRA 

@EA010 

111000 

111001 

111010 

111011 

111100 

AND.W 

#7,D4 

BNE.S 

@EA1112 

BTST 

#7,D7 

BEQ.S 

@FE11 

MOVE.B 

0 (A4,D3) ,D0 

LSL.L 

#4, DO 

LSL.L 

#4, DO 

MOVE.B 

1 (A4,D3) ,D0 

EXT.L 

DO 

MOVE.B 

#'$',  (A6)  + 

BSR 

@PNT8HX 

ADD.L 

#2,D3 

RTS 

CMP.B 

#1,D4 

BNE.S 

0EA1113 

BTST 

#8,D7 

BEQ.S 

@FE11 

MOVE.B 

#'$',  (A6)  + 

MOVE.L 

0  (A4,D3)  ,D0 

BSR 

@PNT8HX 

-  MOVE.B 

#'.''',  (A6)  + 

-  MOVE  .  B 

#'L',  (A6)  + 

ADD.L 

#4,D3 

RTS 

CMP  .B 

#2,D4 

BNE.S 

@EA1114 

BTST 

#9,D7 

BNE.S 

@EA1113A 

DISPLACEMENT   */ 
101000    DIS(A@) 
FERROR   THIS  MODE  NOT  ALLOWED 


DECIMAL 
SIZE 


ABSOLUTE  SHORT 

ABSOLUTE  LONG 

PROGRAM  COUNTER  WITH  DISPLACEMENT 

PROGRAM  COUNTER  WITH  INDEX 

IMMEDIATE  OR  STATUS  REG 


FERROR   THIS  MODE  NOT  ALLOWED 
111000    ABSOLUTE  SHORT 


SIGN  EXTENDED  VALUE 
SIZE  +  2 


1,3 


FERROR   THIS  MODE  NOT  ALLOWED 

HEX 

111001   ABSOLUTE  LONG 

FORCE  LONG  @FORMAT  1,3  */ 
IE    .L  1,3   */ 
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@FE11: 
0EA1113A: 


0EA1114 


/* 
/* 


BRA  @ FERROR 

MOVE.B  0(A4,D3),D0 

LSL.L  #4, DO 

LSL.L  #4, DO 

MOVE.B  1(A4,D3),D0 

EXT.L  DO 

ADD.L  A2,D0 

ADD.L  #2, DO 

MOVE.B  #' $' , (A6) + 

BSR  @PNT8HX 

MOVE.L  # (0X29435028) , DO 

BSR  @SCHR 

ADD.L  #2,D3 

RTS 

CMP.B  #3,D4 

BNE  QEA1115 

PROGRAM  COUNTER  WITH  INDEX 
5432109876543210 

0 

1 

.  XXX 

.  .  . .0 

..IN  INDEX  REGISTER 

.  .  .  .1 

000 

xxxxxxxx 


THIS  MODE  NOT  ALLOWED 

111010  PC+DISPLACEMENT  DESTINATION 


HEX  "$"  1,3 

DESTINATION 
(PC)  ')CP(' 
STORE  WORD 
SIZE 


DESTINATION (PC, R@ .X)   */ 

SECOND  WORD 

DATA  REGISTER 

ADDRESS  REGISTER 

REGISTER 

SIGN-EXTENDED,  LOW  ORDER  WORD  INTEI 

LONG  VALUE  IN  INDEX  REGISTER 

DISPLACEMENT  INTEGER 


BTST  #10, D7 

BEQ  @FE11 

MOVE.B  0(A4,D3),D1 

LSL.L  #4,D1 

LSL.L  #4,D1 

MOVE.B  1(A4,D3),D1 

AND.W  #0X0700, Dl 

BNE  0FE11 

MOVE.B  1(A4,D3),D0 

EXT.W  DO 

EXT.L  DO 

ADD.L  A2,D0 

ADD.L  #2, DO 

MOVE.B  #'$' , (A6) + 

BSR  0PNT8HX 

MOVE.L  # (0X2C435028) ,D0 

BSR  @SCHR 

MOVE.B  0(A4,D3),D4 

LSL.L  #4,D4 

LSL.L  #4,D4 

MOVE.B  1(A4,D3),D4 

ROL.W  #4,D4 


FERROR 


THIS  MODE  NOT  ASLLOWED 


FERROR   BITS  10-8  MUST  BE  ZERO 
111100    DESTINATION (PC,  R@ .X) 


HEX  "$"  1,3 

DESTINATION      1,3 
',CP(' 

DES (PC, 
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BTST 

#3,D4 

BEQ.S 

0EAF25 

BSR 

@FORMREGA 

BRA.S 

@EAF27 

EAF25: 

BSR 

@FORMREGD 

EAF27 : 

MOVE.B 

#'  .',  (A6)  + 

MOVE.B 

0  (A4,D3) ,D4 

LSL.L 

#4,D4 

LSL.L 

#4,D4 

MOVE.B 

1 (A4,D3) ,D4 

MOVE.W 

# (0X4C57) ,D0 

BTST 

#11, D4 

BEQ.S 

@EAF35 

LSR.W 

#8, DO 

EAF35: 

MOVE.B 

DO,  (A6)  + 

MOVE.B 

#')', (A6)+ 

ADD.L 

#2,D3 

RTS 

• 

BIT   5432109876543210 

111100 

DES(PC,R@ 
DES(PC,R@ 


LW 


DES(PC,R@ .X 
DES  (PC,R@ .X) 


FIRST  WORD   #<IMMEDIATE> 


EA1115:   CMP.B 

#4,D4 

BNE 

@FE11 

BTST 

#11, D7 

BEQ 

@FE11 

MOVE.B 

#'#',  (A6)  + 

MOVE.B 

-1(A5) ,D1 

CMP.B 

#'L',D1 

BEQ.S 

0EA11155 

MOVE.B 

0 (A4,D3)  ,D 

LSL.L 

#4, DO 

LSL.L 

#4, DO 

MOVE.B 

1 (A4,D3) ,D 

CMP.B 

#'B',D1 

BNE.S 

@EA11153 

FERROR 

FERROR  THIS  MODE  NOT  ALLOWED 
IMMEDIATE 


LONG 


WORD 


BYTE  SIZE,  DATA  ALLOWED 
0000  0000  XXXX  XXXX 
1111  1111  1XXX  XXXX 


MOVE.L 

D0,D1 

LSR.W 

#8,D1 

BEQ.S 

@EA11153 

MOVE.L 

D0,D1 

ASR.W 

#7,D1 

ADD.W 

#1,D1 

BNE 

@FE11 

FERROR 
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@EA11153: 

EXT.L 

DO 

BSR 

@HEX2DEC 

ADD.L 

#2,D3 

RTS 

@EA11155: 

MOVE.L 

0(A4,D3),D0         , 

BSR 

@HEX2DEC 

ADD.L 

#4,D3 

SIZE 

RTS 

@MOVEMS : 

MOVE.B 

#' •', (A5)+ 

•PERIOD 

MOVE.W 

#(0X4C57),D0 

•'LW' 

BTST 

#6,D4 

BEQ.S 

0MOVEMS2             ( 

LSR.W 

#8, DO 

0MOVEMS2 : 

MOVE.B 
RTS 

DO, (A5) +             , 

•SIZE 

/* 

MOVEM  - 

REGISTER  EXPANSION  > 

*/ 

@MOVEMR: 

MOVE.W 

2(A4),D2 

:D2  =  SECOND  WORD 

MOVE.L 

#'  ',D0 

•DO  =  SPACE 

MOVE.L 

#'/',D7 

•D7  =  / 

SUB.L 

#1,A6 

; ADJUST  STORE  POINTER 

MOVE.L 

#'0',D5 

;D5  =  REGISTER  # 

MOVE.W 

#(0X4144), D4         , 

;D4  =  REG  CLASS     'AD' 

@M0VEMR11 

:BTST 

D1,D2 

BEQ.S 

@MOVEMR7  7 

rBIT  RESET 

CMP.B 

(A6) ,D0 

rBIT  SET 

BNE.S 

@MOVEMR4  4 

;NOT  SPACE 

@MOVEMR3  3 

:  MOVE  .  B 

D4, 1(A6) 

rREG  TYPE 

MOVE.B 

D5, 2 (A6) 

rREG  # 

MOVE.B 

#'-'  ,3(A6) 

;  - 

ADD.L 

#3,A6 

BRA.S 

@MOVEMR88 

(3MOVEMR4  4 

: CMP.B 

#',', (A6) 

BEQ 

@MOVEMR33 

; COMMA  SEPARATOR 

CMP  .B 

(A6) ,D7 

; /    SEPARATOR 

BEQ 

@ MOVE MR 3 3 

MOVE.B 

D4,  1 (A6) 

;REG  TYPE 

MOVE.B 

D5,2 (A6) 

;REG  # 

MOVE.B 

#'-',3(A6) 

;     -    SEPARATOR 

BRA.S 

0MOVEMR88 

(3MOVEMR7  7 

: CMP . B 

#', ', (A6) 

BEQ.S 

@MOVEMR88 

; COMMA 

CMP.B 

(A6) ,D0 

BEQ.S 

@MOVEMR88 

; SPACE 

CMP  .B 

1  (A6)  ,D0 

BEQ.S 

@ MOVE MR 7 9 

; SPACE 

ADD.L 

#3,A6 

0MOVEMR7  9 

:  MOVE  .  B 

D7, (A6) 

; /  SEPARATOR 
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}MOVEMR8  8:ADD.L 
ADD.L 
CMP.B 
BNE 
CMP.B 
BEQ.S 
CMP.B 
BEQ.S 
ADD.L 
MOVE.B 

}MOVEMR94:MOVE.B 
LSR.W 
BNE 

MOVE.B 
RTS 

MOVE . L 
MOVE.L 
MOVE.L 
MOVE.L 
MOVE.L 
LINK 
MOVEM . L 
LEA 

MOVE.L 
MOVE.L 
MOVE.L 
MOVE . B 
SUB.L 
BNE 


#1,D5 

D6,D1 

#'8',D5 

@MOVEMRll 

(A6) ,D0 

@ MOVE MR 9 4 

1 (A6) ,D0 

@MOVEMR94 

#3,A6 

D7,  (A6) 

#'0',D5 

#8,D4 

@ MOVE MR 11 

DO, (A6) 

2  0 (SP) ,A5 
16  (SP)  ,D0 
12  (SP)  ,D1 
8(SP) ,D2 
4 ( SP )  ,  A2 
Al,#-16 

D0-D2/A4,  -16(A1) 

-16 (Al) ,A4 

A5,A3 

#80, DO 

A3,A6 

#'  ',  (A6)  + 

#1,D0 

QDEC311 


Dl  =  BIT  POSITION 

SPACE 
SPACE 


/    SEPARATOR 
RESET  REG  TO  ZERO 
CHANGE  REG  TYPE 
MORE 
SPACE 


CREATE  A  FRAME  FOR  THE 
CODE  AND  ITS  PC.   A4 
POINTS  TO  THE  CODE. 
A3  =  START  OF  OUTPUT  BUFFER 


SPACE  FILL  BUFFER 


CHECK  FOR  KNOWN  ILLEGAL  CODES 


MOVE.W 

LEA 

MOVE.L 

ADD.L 

CMP  .W 

BEQ.S 

CMP.L 

BNE 


(A4) ,D0 
@KI,A5 
A5,A6 
#2,A6 

(A5)+,D0 
@FE12 
A6,A5 
@DEC404 


LOOK  FOR  MATCH  OF  OP -CODE 


MOVEM . L 

MOVE.L 

LEA 

LEA 

MOVE . B 

LSL.L 

MOVE.B 

MOVE.B 

LSL.L 


D1-D2,-  (SP) 
#8,D2 
@TBL,A5 
@TBLE,A6 

(A4)  ,D0 
D2,D0 
1 (A4) ,D0 

(A5)+,D1 
D2,D1 


# (@KIEND-@KI)=2 
FERROR   ILLEGAL  CODE 


*/ 

SAVE  D1,D2 

8=SHIFT  CNT 

A5  -  POINTER  TO  DECODE  TABLE 

A6  =  POINTER  TO  END  OF  TABLE 

FIRST  BYTE 

FIRST  WORD 
FIRST  BYTE 


1,4 
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@FE12: 
@DEC425 


/* 

@DEC510 
0DEC515 

0DEC53O 
@DEC535 


0DEC537 
/* 


MOVE.B 

AND.W 

MOVE.B 

LSL.L 

MOVE.B 

CMP.W 

BEQ.S 

ADD.L 

CMP.L 

BNE 

MOVEM .  ] 

BRA 

MOVEM .  ] 

CLR.L 

MOVE.B 

LSL.L 

LSL.L 

MOVE.B 

CLR.L 

MOVE.B 

ADD.L 


(A5)+,D1 
D1,D0 

(A5) +,D1 
D2,D1 

(A5)+,D1 
D1,D0 
0DEC425 
#4,A5 
A6,A5 
0DEC411 

(SP)+,D1-D2 
@FERROR 

(SP) +,D1-D2 
D6 

(A5)+,D6 

#4,D6 

#4,D6 

(A5) +  ,D6 
D7 

(A5)+,D7 
#1,A5 


MOVE  OP -CODE  TO  BUFFER 


LEA 

TST 

BEQ.S 

TST.B 

BPL 

SUB.L 

BRA 

MOVE . L 

LEA.L 

MOVE . B 

BCLR 

BNE.S 

MOVE.B 

BRA 

MOVE . B 


@OPCTBL,A0 

D7 

@DEC530 

(A0)  + 

@DEC515 

#1,D7 

@DEC510 

#30, DO 

0  (A3, DO) ,A5 

(A0) +,D0 
#7, DO 
@DEC537 
DO, (A5) + 
0DEC535 
DO, (A5) + 


CALCULATE  GOTO  AND  GO 


MOVE.L 

LEA 

ADD.L 

MOVE.L 

LEA.L 

MOVE.W 

MOVE.B 

MOVE .W 

JMP 


#2,D3 

@PGM,A0; 

D6,A0; 

#39, DO 

0  (A3, DO) ,A6 

(A4)  ,D4 
#',',D5 
#0X1FD,D7 

(A0) 


FIRST  WORD 
MASK 
FIRST  BYTE 

FIRST  WORD 

FOUND  MATCH 
UPDATE  POINTER 

MORE  TABLE 
RESTORE  D1,D2 
ILLEGAL  INSTRUCTION 
RESTORE  D1,D2 

D6  =  (GOTO  OFFSET) /4  ILK  BYTE 


D6  =  (GOTO  OFFSET) /4  2ND  BYTE 
D7  =  INDEX  TO  OP-CODE 


1,4 


*/ 


AT  INDEX 

MOVE  THROUGH  FIELD 

.1,4 
A5  =  STORE  POINTER   OP-CODE    1,4 

END  OF  MOVE 


*/ 

D3=  SIZE 

1,4 

A6  =  POINTER  FOR  OPERAND      1,4 

D4  =  FIRST  WORD 

D5  =  CONTAINS  ASCII  COMMA 

D7  =  DATA  ALTERABLE  MODES  ALLOWED 


A4  =  POINTER  TO  DATA  IN  FRAME  CREATED  BY  'LINK  Al, 
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A5  =  POINTER  STORE  OP-CODE 

A6  =  POINTER  STORE  OPERAND 

D3  =  SIZE  =  2  BYTES 

D4  =  FIRST  WORD 

i COMMON 4 : 

D7  =  ADDRESS  MODES  ALLOWED  (0X1FD)  DATA  ALTERABLE 

ADD.L 

#2,D3 

■SIZE  =  4 

!  COMMON : 

MOVE.L 

D3,D6 

:D6  =  SIZE 

MOVE.B 

#'  ',  (A6)  + 

•SPACE  AS  LAST  CHAR 

MOVE.L 

A6,A5                , 

•SAVE  END  OF  BUFFER  POINTER 

MOVE.L 

#3, DO 

•1,4 

LEA.L 

0(A3,D0),A6         , 

•1,4 

ICOMMON35 

: MOVE . W 

(A4)+,D0 

•GET  NEXT  WORD  OF  DATA. 

ADD.L 

#2,A2 

•ADJUST  PROG  COUNTER. 

BSR 

@PNT4HX              , 

•FORMAT  DATA.   (A6) + 

SUB.B 

#2,D3; 

BNE 

QCOMMON35; 

MOVE.L 

A5,A6                , 

•A6  =  RESTORE  END  POINTER 

MOVE.L 

A3,A5                , 

:A5  =   BEGINNING  OF  BUFFER 

MOVE.L 

A2 , A4                ( 

•MOVE  THE  UPDATED  PC 

UNLK 

Al                   , 

•TO  A4  AND  UNDO  FRAME. 

MOVE.L 

A2,4(SP) 

RTS 

'* 

ILLEGAL 

INSTRUCTION         ' 

*/ 

IFERROR : 

MOVE . L 

#30, DO 

•  .1,4 

LEA.L 

0(A3,D0),A6 

•1,4 

LEA 

@MSG111,A5 

FERROR35 

:  MOVE  .  B 

(A5)+,D0 

CMP.B 

#4, DO 

BEQ.S 

@FERROR3  9            , 

MOVE.B 

DO,  (A6)+             , 

BRA 

@FERROR35            , 

'FERROR3  9 

: MOVE . W 

(A4),D0              , 

BSR 

@PNT4HX              , 

MOVE.L 

#2,D3      ;SIZE 

BRA 

@ COMMON              , 

IMSG111: 

DC.B 

'W'/0','R','D'; 

DC.B 

t      r      i      i      r      r      r      r   . 

r             i             i             i             i 

DC.B 

'$',4; 

!KI: 

DC.W 

0X4AFB 

•KNOWN  ILLEGAL  CODES 

iKIEND: 

\1 

MASK 

\2 

OP -CODE 

PATTERN 

\3 

GOTO  OFFSET 

\4 

INDEX  TO  OP -CODE 

TBL: 

DC.L 

0XFEC0E6C0            , 

•RO 

ISH1: 

DC.W 

0X0000 
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DC 

B 

56 

DC 

L 

0XFEC0E4C0 

@ISH2: 

DC 

W 

0X000 

DC 

,B 

57 

DC 

L 

0XFEC0E2C0 

@ISH3: 

DC 

W 

0X0000 

DC 

B 

55 

DC 

.L 

0XFEC0E0C0 

0ISH4 : 

DC 

.W 

0X0000 

DC 

.B 

54 

DC 

.L 

0XF018E018 

@ISH5: 

DC 

W 

0X0000 

DC 

B 

56 

DC 

L 

0XF018E010 

QISH6: 

DC 

W 

0X0000 

DC 

B 

57 

DC 

L 

0XF018E008 

@ISH7 : 

DC 

W 

0X0000 

DC 

B 

55 

DC 

L 

0XF018E000 

@ISH8: 

DC 

W 

0X0000 

DC 

B 

54 

DC 

L 

OXFOCODOCO 

QF10EX1: 

DC 

W 

0X0000 

DC 

B 

4 

DC 

L 

0XF130D100 

@F124 : 

DC 

W 

0X0000 

DC 

B 

53 

DC 

L 

OXFOOODOOO 

0F1OEX3: 

DC 

W 

0X0000 

DC 

B 

4 

DC 

L 

0XF1F8C188 

@F91: 

DC 

W 

0X0000 

DC 

B 

50 

DC 

L 

0XF1F8C148 

@F81  : 

DC 

W 

0X0000 

DC 

B 

50 

DC 

L 

0XF1F8C140 

@F71: 

DC 

W 

0X0000 

DC 

B 

50 

DC 

L 

0XF1F0C100 

@F121: 

DC 

W 

0X0000 

DC 

B 

49 

DC 

L 

0XF1C0C1C0 

@F6D1: 

DC 

W 

0X0000 

DC 

B 

48 

DC 

L 

0XF1C0C0C0 

@F6D2 : 

DC 

W 

0X0000 

DC 

B 

47 

DC 

L 

0XF000C000 

ROX 


LS 


AS 


RO 


ROX 


LS 


AS 


ADD 


ADDX 


ADD 


EXG 


EXG 


EXG 


ABCD 


MULS 


'MULU 


<EA>  A@ 
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DC 

.W 

0X0000 

DC 

.B 

2 

DC 

.L 

0XF0C0B0C0 

DC 

.W 

0X0000 

DC 

.B 

6 

DC 

.L 

0XF138B108 

DC 

.W 

0X0000 

DC 

,B 

46 

DC 

.L 

0XF100B100 

DC 

.W 

0X0000 

DC 

,B 

5 

DC 

,L 

0XF000B000 

DC 

,W 

0X0000 

DC 

B 

6 

DC 

L 

0XF0C090C0 

DC 

W 

0X0000 

DC 

B 

44 

DC 

L 

0XF1309100 

DC 

W 

0X0000 

DC 

B 

45 

DC 

L 

0XF0009000 

DC 

W 

0X0000 

DC 

B 

44 

DC 

L 

0XF1F08100 

DC 

W 

0X0000 

DC 

B 

43 

DC 

L 

0XF1C081C0 

DC 

W 

0X0000 

DC 

B 

42 

DC 

L 

0XF1C080C0 

DC 

W 

0X0000 

DC 

B 

41 

DC 

L 

0XF0008000 

DC 

W 

0X0000 

DC 

B 

40 

DC 

L 

0XF1007000 

DC 

W 

0X0000 

DC 

B 

39 

DC 

L 

0XFF006100 

DC 

W 

0X0000 

DC 

.B 

51 

DC 

.L 

0XFF006000 

DC 

.W 

0X0000 

DC 

.B 

65 

DC 

.L 

0XF0006000 

DC 

.W 

0X0000 

DC 

.B 

38 

DC 

.L 

0XF0F850C8 

DC 

.W 

0X0000 

DC 

.B 

37 

AND 


CMP 


CMPM 


EOR 


CMP 


SUB 


SUBX 


SUB 


SBCD 


DIVS 


DIVU 


OR 


MOVEQ 


BSR 


BRA 


B 


DB 


<EA>  A@ 


<EA>  A@ 


1  3 
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DC 

.L 

0XF0C050C0 

8SCC1: 

DC 

.W 

0X0000 

DC 

.B 

36 

DC 

.L 

0XF1005100 

@IQUICK1 : 

DC 

.W 

0X0000 

DC 

.B 

35 

DC 

.L 

0XF1005000 

@IQUICK2 : 

DC 

.W 

0X0000 

DC 

.B 

34 

DC 

.L 

0XF1C041C0 

@F6A1: 

DC 

.W 

0X0000 

DC 

.B 

33 

DC 

.L 

0XF1C04180 

@F6D5: 

DC 

.W 

0X0000 

DC 

.B 

32 

DC 

.L 

0XFFC04EC0 

@F11SL1: 

DC 

.W 

0X0000 

DC 

.B 

31 

DC 

.L 

0XFFC04E80 

0F11SL2: 

DC 

,W 

0X0000 

DC 

B 

30 

DC 

L 

0XFFFF4E77 

(3SC0MM0N1 

:DC 

W 

0X0000 

DC 

B 

29 

DC 

L 

0XFFFF4E76 

@S COMMON 2 

:DC 

W 

0X0000 

DC 

B 

28 

DC 

L 

0XFFFF4E75 

@S COMMON 3 

:DC 

W 

0X0000 

DC 

B 

27 

DC 

L 

0XFFFF4E73 

(3SCOMMON4 

:DC 

W 

0X0000 

DC 

B 

26 

DC 

L 

0XFFFF4E72 

@ISTOPl: 

DC 

W 

0X0000 

DC 

B 

25 

DC 

L 

0XFFFF4E71 

@S COMMON 5 

:DC 

W 

0X0000 

DC 

B 

24 

DC 

L 

0XFFFF4E70 

@S COMMON 6 

:DC 

W 

0X0000 

DC 

B 

23 

DC 

L 

0XFFF84E68 

0IMVFUSP1 

:DC 

W 

0X0000 

DC 

B 

60 

DC 

L 

0XFFF84E60 

@IMVTUSP1 

:DC 

W 

0X0000 

DC 

B 

60 

DC 

L 

0XFFF84E58 

@F51  : 

DC 

W 

0X0000 

SUBQ 

ADDQ 

LEA 

CHK 

JMP      1  4 

JSR      1,4 

RTR 

TRAPV 

RTS 

RTE 

STOP 

NOP 

RESET 

MOVE  FROM  USP 

MOVE  TO  USP 
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DC 

B 

22 

DC 

L 

0XFFF84E50 

9ILINK1: 

DC 

.W 

0X0000 

DC 

B 

21 

DC 

,L 

0XFFF04E4  0 

8F41: 

DC 

W 

0X0000 

DC 

.B 

20 

DC 

,L 

0XFF804C80 

3IMVMTR1: 

DC 

,W 

0X0000 

DC 

,B 

15 

DC 

L 

0XFFC04AC0 

3F1A1: 

DC 

W 

0X0000 

DC 

B 

19 

DC 

L 

0XFF004A00 

3F11  : 

DC 

W 

0X0000 

DC 

B 

18 

DC 

L 

0XFFF848C0 

5F31: 

DC 

W 

0X0000 

DC 

B 

17 

DC 

L 

0XFFF84880 

3F32: 

DC 

W 

0X0000 

DC 

B 

16 

DC 

L 

0XFF804880 

3IMVMFR1 : 

DC 

W 

0X0000 

DC 

B 

15 

DC 

L 

0XFFF84840 

3F33  : 

DC 

W 

0X0000 

DC 

B 

14 

DC 

L 

0XFFC04840 

3F111: 

DC 

W 

0X0000 

DC 

B 

13 

DC 

L 

0XFFC04800 

3F1A2 : 

DC 

W 

0X0000 

DC 

B 

12 

DC 

L 

0XFFC04  6C0 

ilMVTSRl: 

DC 

W 

0X0000 

DC 

B 

59 

DC 

L 

0XFF004600 

3.F12: 

DC 

W 

0X0000 

DC 

B 

11 

DC 

,L 

0XFFC044C0 

3IMVTCCR1 

:DC 

,W 

0X0000 

DC 

,B 

59 

DC 

.L 

0XFF004400 

3F13: 

DC 

.W 

0X0000 

DC 

.B 

10 

DC 

.L 

0XFF004200 

3F14: 

DC 

.W 

0X0000 

DC 

,B 

9 

DC 

.L 

0XFFC040C0 

UNLINK 


LINK 


TRAP 


MOVEM  FROM  REGISTERS 


TAS 


TST 


EXT.L 


EXT.W 


MOVEA  TO  REGISTERS 


SWAP 


PEA 


NBCD 


MOVE  TO  SR 


NOT 


MOVE  TO  CCR 


NEG 


CLR 
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@IMVFSR1 : 

DC 

.W 

0X0000 

DC 

.B 

59 

DC 

.L 

0XFF004000 

@F15: 

DC 

.W 

0X0000 

DC 

,B 

8 

DC 

.L 

0XF0003000 

@IM0VE1: 

DC 

,W 

0X0000 

DC 

.B 

59 

DC 

.L 

0XF0002000 

@IM0VE2 : 

DC 

.W 

0X0000 

DC 

.B 

60 

DC 

.L 

0XF0001000 

@IM0VE3: 

DC 

,W 

0X0000 

DC 

,B 

58 

DC 

.L 

0XFF000C00 

@IMMED1 : 

DC 

.W 

0X0000 

DC 

B 

6 

DC 

L 

0XFF000A00 

0IMMED2 : 

DC 

W 

0X0000 

DC 

B 

5 

DC 

L 

0XFF000600 

@IMMED3: 

DC 

W 

0X0000 

DC 

B 

4 

DC 

L 

0XFF000400 

@IMMED4  : 

DC 

W 

0X0000 

DC 

B 

3 

DC 

L 

0XFF000200 

QIMMED5: 

DC 

W 

0X0000 

DC 

B 

2 

DC 

L 

0XFF000000 

@IMMED6: 

DC 

W 

0X0000 

DC 

B 

1 

DC 

L 

0XF1380108 

@IM0VEP1 : 

DC 

W 

0X000 

DC 

B 

0 

DC 

L 

0XFFC008C0 

0ISETS1 : 

DC 

W 

0X0000 

DC 

B 

64 

DC 

L 

0XFFC00880 

@ISETS2 : 

DC 

W 

0X0000 

DC 

B 

63 

DC 

L 

0XFFC00840 

@ISETS3: 

DC 

W 

0X0000 

DC 

B 

62 

DC 

L 

0XFFC00800 

0ISETS4 : 

DC 

W 

0X0000 

DC 

B 

61 

DC 

L 

0XF1C001C0 

(3ISETD1: 

DC 

W 

0X0000 

DC 

B 

64 

MOVE . W   FROM   SR 


NEGX 


MOVE.W 

MOVE.L 

MOVE.B 

CMP 

# 

EOR 

# 

ADD 

# 

SUB 

# 

AND 


OR 


MOVEP 


BSET 


BCLR 


BCHG 


BTST 


BSET 
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DC 

.L 

0XF1C00180 

DC 

.W 

0X0000 

DC 

,B 

63 

DC 

.L 

0XF1C00140 

DC 

.W 

0X0000 

DC 

B 

62 

DC 

,L 

0XF1C00100 

DC 

W 

0X0000 

DC 

B 

61 

BCLR 


BCHG 


BTST 


DC 

.B 

'M','0','V','E' 

DC 

.B 

128+'P' ,' 0'  r  128+'R' , ' ' 

r 

DC 

.B 

'N' ,128+'D' , 'S' , 'U' 

DC 

,B 

128+'B' , 'A' , 'D' ,128  +  '  ' 

i 

DC 

.B 

'E'  ,  '0'  ,  128  +  'R'  ,  'C 

DC 

.B 

'M' ,128+'P','M','0' 

DC 

.B 

'V',128+'E','N','E' 

DC 

.B 

'G' ,128+'X' , 'C  , 'L' 

DC 

.B 

128+'R' r 'N' ,'E' , 128+'( 

->  r   . 

DC 

.B 

'N' ,'0' ,128+'T' ,'N' 

DC 

,B 

'B'  ,  '  <Z'  ,128  +  'D'  ,  'P' 

DC 

,B 

rE' , 'A' , '  .' , 128+'L' 

DC 

,B 

'S','W','A','P' 

DC 

,B 

'  .'  ,128  +  ' W  ,'W  ,'  0' 

DC 

B 

'V',,E',128+'M','E/ 

DC 

B 

'X','T',  '  .'  f  128  +  'W 

DC 

B 

'E'   'X'   '  T'   '   ' 

DC 

B 

128+'L' ,'T' , 'S' , 128+/r 

r'; 

DC 

B 

'T'^K'^S','.' 

DC 

B 

128  +  'B'  ,  'T'  ,  'R'  ,  '  K'        , 

DC 

B 

128+'P' , 'L', '1','N' 

DC 

B 

128+'K' ,'U' , 'N' , 'L' 

DC 

B 

128+'K','R','E','S' 

DC 

B 

'E' ,128  +  '!"  ,'N' ,'0' 

DC 

B 

128+'P' , ' S' , 'T' , '0'   , 

DC 

B 

128+'P' , 'R' , 'T' , 128+'I 

c  • 

DC 

B 

'R'  ,  "I"  ,  128  +  '  S'  ,  'T' 

DC 

B 

'R'  ,  'A'  ,  'P'  ,  128  +  'V 

DC 

B 

'R'  ,  'T'  ,  128  +  'R'  ,  '  J' 

DC 

B 

'S'  ,128  +  'R'  ,  '  J'  ,  'M' 

DC 

B 

128  +  'P'  ,  'C  ,  'H'  ,  'K' 

DC 

B 

' .' ,128+' W , 'L' , 'E' 

DC 

B 

'A'  ,  '  .'  ,128  +  'L'  ,  'A' 

DC 

B 

'D' , 'D' , 128+'Q' , ' S' 

DC 

B 

'U' , 'B' , 128+'Q' , 128+' I 

5'; 

DC 

B 

'D' , 128+'B' , 128+'B' , '1 

4'; 

DC 

B 

'0' , 'V  , 'E' , 'Q' 

DC 

B 

' . ' , 128+'L' , '0' , 128+'I 

I'  ; 
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DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 
DC.B 


'D' 
i     i 

'V 
'S' 
'  S' 

'U' 
'M' 
'U' 


'S' 

'B' 
'X' 


'  I' 
128 
'S' 
'B' 
'U' 
'B' 
'P' 
'L' 


r'V 

+  'W' 


128+' W 


i       r 

'C 
128 


128  +  'R' 
128+'L' 
128+'X' 
128+'S' 
128 
'E' 
'O' 
128 
'E' 

/  rnr 

'  c 
'C 

'S' 

'R' 


'O' 
'V 
'M' 

,  r 

'V 
'B' 
'B' 
'B' 
'B' 
'B' 


,'U' 
,'D' 

,128 


,'C, 

128 

,128+'B' 

,128  +  'X' 

,128+'M' 

,'U', 

/       r 

r          • 

,'M'  , 

,  'U' 

, 128+' W 

,128+'D' 

+  'G'  , 

'B' 

,  'N'  , 

'U' 

/A', 

'D' 

, 'A', 

,128 

,  'R', 

128 

+  'X'  , 

'M' 

,     , 

128 

» fv! 

,'E' 

+  '  w , 

'M' 

A       A 

,128 

''s'! 

,128 

,  'H'  , 

,128 

,'L', 

,128 

,  'E'  - 

,128 

,128- 

l-'A' 

+  'W 
+  'D' 
,'S' 
,'C 

,'L' 


,'S' 


l  +  'S'  ,  'L'  / 
i  +  'O'  ,  'R'  / 

'O' 
!  +  'B' 

'O' 
l  +  'L' 
!  +  'T' 
!  +  'G' 
l  +  'R' 
l  +  'T' 

'E' 


/*  PRINT  HEX  ROUTINES 

/*  PRINT  8  HEX  CHARACTERS 

/*  D0,D1,D2  DESTROYED 

QPNT8HX:   SWAP  DO 

BSR.S  0PNT4HX 

SWAP  DO 

BRA.S  @PNT4HX 

/*         PRINT  6  HEX  CHARACTERS 

@PNT6HX:   SWAP  DO 

BSR.S  0PNT2HX 

SWAP  DO 
/*          PRINT4  HEX  CHARACTERS  IN  DO 

@PNT4HX:   MOVE . W  D0,D1 

ROR.W  #8, DO 

BSR.S  @PNT2HX 

MOVE.W  D1,D0 

/*  PRINT  2  HEX  CHARACTERS 

@PNT2HX:   MOVE.W  D0,D2 

ROXR.W  #4, DO 


*/ 
*/ 
*/ 


FLIP  REG  HALVES 

DO  TOP  WORD 

NOW  DO  LOWER  WORD 

7 

FLIP  REGISTER  HALVES 


FLIP  BACK  REG  HALVES 
W   */ 

SAVE  IN  TEMP 

GET  BITS  15-8  INTO  LOWER  BYTE 
PRINT  IT 
PULL  IT  BACK 
IN  DO.B   */ 

/SAVE  IN  TEMP  REG 
/FORM  UPPER  NIBBLE 
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/* 

0PUTHEX 


0SAVHEX 

/* 

0PNTZHX: 


@PNTZO 
@PNTZ1 


@PNTZ2 : 

@PNTZ4 : 

0PNTZ3: 
@PNTZ8: 


0PNTZ81: 
8PNTZ9: 
/* 
9HEX2DEC 


3HX2DC: 
3HX2DCO 


BSR.S 

MOVE.W 

CONVERT 

AND.B 

OR.B 

CMP.B 

BLE.S 

ADD 

MOVE . B 

RTS 

PRINT  HEX 

CLR.L 

MOVE.L 

BEQ.S 

BPL.S 

NEG.L 

BMI.S 

MOVE.B 

MOVE . L 

MOVE.L 

MOVE.L 

SUB.L 

BEQ.S 

ASR.L 

AND.L 

SUB.L 

BNE 

AND.B 

BNE.S 

TST.B 

BEQ.S 

BSR 

MOVE.B 

SUB.L 

BNE 

TST.B 

BNE.S 

MOVE.B 

RTS 

CONVERT  B 

MOVEM . L 

MOVE.L 

BPL.S 

NEG.L 

BMI  .  S 

MOVE.B 

CLR.W 

MOVE.L 

MOVE . L 

MOVE.L 


(3PUTHEX 

D2,D0 

DO. NIBBLE  TO  HEX 

#0X0F,D0 

#0X30, DO 

#0X39, DO 

@ SAVHEX 

#7, DO 

DO,  (A6)  + 

(ZERO  SURPRESS) 
D4 

D0,D1 
@PNTZ81 
dPNTZO 
Dl 

@PNTZ81 
#'-',  (A6)  + 
#8,D2 
D1,D0 
D2,D3 
#1,D3 
@PNTZ4 
#4, DO 

#0XFFFFFFF,D0 
#1,D3 
@PNTZ2 
#0XF,D0 
@PNTZ3 
D4 

(3PNTZ8 
@PUTHEX 
D0,D4 
#1,D2 
@PNTZ1 
D4 

@PNTZ9 
#'0',  (A6)  + 

INARY  TO  DECIMAL 
D1-D4/D6-D7,- (A7) 
D0,D7 
@HX2DC 
D7 

@HX2DC57 
#'-',  (A6)  + 
D4 

#10, D6 
#1,D2 
D6,D1 


;PUT  ASCII  INTO  PRINT  BUFFER 
;GET  BACK  FROM  TEMP 
&  PUT  IT  IN  PRINT  BUFFER   */ 

SAVE  LOWER  NIBBLE 

CONVERT  TO  ASCII 

SEE  IF  IT  IS>9 

ADD  TO  MAKE  10=>A 

PUT  IT  IN  PRINT  BUFFER 


7 

IS  ZERO  WHEN  SUPPRESSING 
SAVE  IN  TEMP 
IF  ZERO 

CHANGE  TO  POSITIVE  VALUE 

WATCH  OUT  SPECIAL  CASE  0X80000000 

PUT  SIGN  INTO  BUFFER 

8  POSSIBLE  CHARACTERS 

UN SAVE  IT 

COUNT  DOWN  FROM  HERE 

BACK  OFF  ONE 

IF  NO  ROTATE  SKIP  THIS 

ROTATE  LRIGHT 

CLEAR  TOP  NIBBLE 


SAVE  ONLY  NIBBLE 

SEE  IF  STILL  SUPPRESSING 

PUT  A  HEX  CHAR  IN  BUFFER 
MARK  AS  NON-SURPRESSING  MODE 
DO  ANOTHER  CHAR 

SEE  IF  ANYTHING  PRINTED 

MOVE  AT  LEAST  ONE  ZERO 


REG  DO  PUT  IN  (A6) 
SAVE  REGISTERS 
SAVE  IT  HERE 


BUFFER  AS  ASCII 


CHANGE  TO  POSITIVE 
SPECIAL  CASE  (-0) 
PUT  IN  NEG  SIGN 
FOR  ZERO  SURPRESS 
COUNTER 
VALUE  TO  SUB 
COUNTER 
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SUB.L 

#1,D1 

ADJUST  -  A  POWER  OF  TEN 

BEQ.S 

0HX2DC2 

IF  POWER  IS  ZERO 

0HX2DC1: 

MOVE . W 

D2,D3 

D3=LOWER  WORD 

MULU 

#10, D3 

SWAP 

D2 

D2=UPPER  WORD 

MULU 

#10, D2 

SWAP 

D3 

ADD  UPPER  TO  UPPER 

ADD.W 

D3,D2                , 

SWAP 

D2                   ( 

'PUT  UPPER  IN  UPPER 

SWAP 

D3 

'PUT  LOWER  IN  LOWER 

MOVE.W 

D3,D2 

•D2=UPPER  &  LOWER 

SUB.L 

#1,D1 

BNE 

@HX2DC1              , 

@HX2DC2: 

CLR.L 

DO 

•HOLDS  SUB  AMT 

QHX2DC22 : 

CMP  .L 

D2,D7                , 

BLT.S 

@HX2DC3              , 

■IF  NO  MORE  SUB  POSSIBLE 

ADD.L 

#1,D0 

•BUMP  SUBS 

SUB.L 

D2,D7                 , 

•COUNT  DOWN  BY  POWERS  OF  TEN 

BRA 

@HX2DC22 

:DO  MORE 

@HX2DC3: 

TST.B 

DO 

•ANY  VALUE? 

BNE.  S 

@HX2DC4              , 

TST.W 

D4 

•ZERO  SUPPRESS 

BEQ.S 

0HX2DC5              ( 

0HX2DC4 : 

ADD.B 

#0X30,D0 

•BINARY  TO  ASCII 

MOVE.B 

DO,  (A6)  + 

:PUT  IN  BUFFER 

MOVE.B 

D0,D4 

:MARK  AS  NON  ZERO  SURPRESS 

@HX2DC5: 

SUB.L 

#1,D6 

•NEXT  POWER 

BNE 

@HX2DC0 

TST.W 

D4 

•SEE  IF  ANYTHING  PRINTED 

BNE.S 

0HX2DC6 

@HX2DC57 : 

MOVE . B 

#'0',  (A6)  + 

; PRINT  AT  LEAST  A  ZERO 

@HX2DC6: 

MOVEM . L 
RTS 

(A7)+,D1-D4/D6-D7 

; RESTORE  REGISTERS 

/* 

END  OF 

ROUTINE 

"/ 

/* 

DISASSEMBLY  PROGRAM  ENDS 

*/ 

@IS2  : 

} 
} 


MOVEM. L     (SP)+,D0-D7/A0-A7 
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V. 


Source   code   of  test: .  c 


/*    **    test.c    **    */ 

/*  This  program  determines  the  start  and  the  end 
addresses  for  the  download. c  program,  and  also 
contains  the  user  program.  */ 

char  *start, *end; 


:est()  { 

asm{ 

LEA 

@1,A0 

MOVE.L 

AO, start 

LEA 

@2,A0 

MOVE.L 

AO, end 

LEA 

@1,A1 

LEA 

@2,A3 

LEA 

@3,A2 

SUBA . L 

Al,  A3 

MOVE.L 

A3, DO 

SUB.W 

#8, DO 

MOVE.W 

DO, (A2) 

JMP 

(AO) 

31: 

DC.W 

0x0000 

DC.W 

0x1000 

33: 

DC.W 

0x0000 

@2  is  already  in  A0  . . . 


Count  of  chars  to  be  sent 


download  address... 
contains  count  of  chars. . 


/* 


***    USER    PROGRAM    BEGINS    *** 


7 


/* 

§2 


***    USER    PROGRAM   ENDS    *** 
NOP 


} 
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B.  SOURCE  CODE  OF  MONITOR  PROGRAM, 


/*  **  ecb.asm  **  */ 

These  programs  reside  in  the  lower  addresses  of  ROM.  At  the  system 
start-up  these  routines  are  copied  to  RAM.  During  execution,  some  of 
the  routines  run  in  ROM  and  some  of  them  run  in  RAM. 
The  Main  program  loops  and  waits  for  any  command  from  Macintosh.  Aftea 
receiving  the  command,  the  program  execution  is  switched  to  the  desir* 
routine.  Which  in  turn,  upon  its  execution  returns  to  Main. 


7 


/*   Initialization 
/* 

Function : 


7 


1-  Copies  ROM  Contents  to  RAM. 

2-  Autovector  Level  4  and  Level  6  Interrupt  Handler  Addres 
are  loaded  in  their  place  in  Exception  Vector  Table. 
Also,  other  defined  Vector  entries  are  filled  with  the 
address  of  STACKFRAME  Routine.  The  purpose  is,  just  to 
prevent  the  system  from  doing  undesired  things  and  the 
loss  of  system  stack  space. 

3-  The  Stack  Allocation  is  done  for  SSP,ISP,USP. 

4-  Makes  PHANTOM  Low. 


*/ 


ROM 

EQU 

$00040000 

PHAN  LOW 

EQU 

$00020000 

INTR  CHK 

EQU 

$000E0000 

VIOL  VEC 

EQU 

$00000020 

TRAC  VEC 

EQU 

$00000024 

INT1  VEC 

EQU 

$00000064 

INT2  VEC 

EQU 

$00000068 

INT3  VEC 

EQU 

$0000006C 

INT4  VEC 

EQU 

$00000070 

INT5  VEC 

EQU 

$00000074 

INT6  VEC 

EQU 

$00000078 

INT7  VEC 

EQU 

$0000007C 

TRAP  VEC 

EQU 

$000000BC 

WORD  CON 

EQU 

$0000FFFF 

SEND  ZER 

EQU 

$000C8000 

SEND  ONE 

EQU 

$00040000 

TBL  FPCR 

EQU 

$00000E9C 

TBL  FPSR 

EQU 

$00000EA0 

TBL  FIAR 

EQU 

$00000EA4 

TBL  FPO 

EQU 

$00000EA8 

TBL  FP1 

EQU 

$00000EB4 

TBL  FP2 

EQU 

$00000EC0 

/FLOATING  POINT  REGISTERS 
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?BL_FP3 

?BL_FP4 

■L_FP5 

?BL_FP  6 

1BL_FP7 

?BL_DO 

?BL_D1 

,BL_D2 

?BL_D3 

?BL_D4 

?BL_D5 

'BL_D6 

?BL_D7 

'BL_AO 

'BL_A1 

'BL_A2 

'BL_A3 

'BL_A4 

,BL_A5 

7BL_A6 

?BL_USP 

,BL_SSP 

:bl_isp 

1BL_PC 

,BL_SRHI 

1BL_SR 

?BL_VBR 

?BL_CACR 

BL_CAAR 

1BL_SFC 

:ntr_enb 

IASK_7 
1RAP_15 
IAXINT 
SRKCOUNT 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


$OOOOOECC 

$00000ED8 

$00000EE4 

$OOOOOEFO 

$OOOOOEFC 

$00000F08 

$OOOOOFOC 

$00000F10 

$00000F14 

$00000F18 

$00000F1C 

$00000F20 

$00000F24 

$00000F28 

$00000F2C 

$00000F30 

$00000F34 

$00000F38 

$00000F3C 

$00000F40 

$00000F44 

$00000F48 

$00000F4C 

$00000F50 

$00000F54 

$00000F56 

$00000F58 

$00000F5C 

$00000F60 

$00000F64 

$F8FF 

$0700 

$4E4F 

$7FFF 

$0F 


; MC6802  0  REGISTERS 


/HIGH  ORDER  WORD  IS  ZERO 
;LOW   ORDER  WORD  IS  SR 


/DEFINED  CONSTANTS 


(ie.  $6FEC) 
(ie.  $6FEE) 


Filling  Exception  Vector  Table  Entries 


ORG 

$00000000 

LONG 

$00001FFFC       ; 

LONG 

HERE             ; 

LONG 

STACKFRAME+ROM   / 

LONG 

STACKFRAME+ROM   / 

LONG 

STACKFRAME+ROM   / 

LONG 

STACKFRAME+ROM   / 

LONG 

STACKFRAME+ROM   ; 

LONG 

STACKFRAME+ROM   / 

LONG 

VIOLHANDLER+ROM  ; 

INITIAL  STACK  POINTER  (ISP)  . 
INITIAL  PROGRAM  COUNTER. 
VECTOR  NUMBER  02 
VECTOR  NUMBER  03 
VECTOR  NUMBER  04 
VECTOR  NUMBER  05 
VECTOR  NUMBER  0  6 
VECTOR  NUMBER  07 
THE  ENTRY  POINTS  TO 
PRIV. VIOLATION  TRACE  HANDLER 
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LONG 

TRACEHANDLER+ROM 

LONG 

STACKFRAME+ROM 

LONG 

STACKFRAME+ROM 

LONG 

STACKFRAME+ROM 

LONG 

STACKFRAME+ROM 

LONG 

STACKFRAME+ROM 

LONG 

STACKFRAME+ROM 

LONG 

STACKFRAME+ROM 

ORG 

$00000060 

LONG 

STACKFRAME+ROM 

LONG 

STACKFRAME+ROM 

LONG 

STACKFRAME+ROM 

LONG 

S  TACKFRAME +ROM 

LONG 

HANDLER+ROM 

LONG 

S  TACKFRAME +ROM 

LONG 

ABORT+ROM 

LONG 

STACKFRAME+ROM 

LONG 

STACKFRAME+ROM 

LONG 

STACKFRAME+ROM 

LONG 

STACKFRAME+ROM 

LONG 

STACKFRAME+ROM 

LONG 

STACKFRAME+ROM 

LONG 

S  TACKFRAME +ROM 

LONG 

STACKFRAME+ROM 

LONG 

STACKFRAME+ROM 

LONG 

STACKFRAME+ROM 

LONG 

STACKFRAME+ROM 

LONG 

STACKFRAME+ROM 

LONG 

STACKFRAME+ROM 

LONG 

S  TACKFRAME +ROM 

LONG 

STACKFRAME+ROM 

LONG 

STACKFRAME+ROM 

LONG 

TRAPH+ROM 

LONG 

S  TACKFRAME +ROM 

LONG 

STACKFRAME+ROM 

LONG 

S  TACKFRAME +ROM 

LONG 

S  TACKFRAME +ROM 

LONG 

S  TACKFRAME +ROM 

LONG 

STACKFRAME+ROM 

LONG 

STACKFRAME+ROM 

LONG 

STACKFRAME+ROM 

LONG 

STACKFRAME+ROM 

LONG 

STACKFRAME+ROM 

LONG 

STACKFRAME+ROM 

/* 

Initializing 

the  Stack  Pointer 

ORG 

$00000400 

THE  ENTRY  POINTS  TO  TRACE  HANDLER, 

VECTOR  NUMBER  10 

VECTOR  NUMBER  11 

VECTOR  NUMBER  12 

VECTOR  NUMBER  13 

VECTOR  NUMBER  14 

VECTOR  NUMBER  15 

VECTOR  NUMBER  16 


VECTOR  NUMBER  24 

VECTOR  NUMBER  25 

VECTOR  NUMBER  2  6 

VECTOR  NUMBER  27 

THE  ENTRY  POINTS  TO  INTERRUPT  HANDLER 

VECTOR  NUMBER  2  9 

THE  ENTRY  POINTS  TO  INTERRUPT  HANDLER 

VECTOR  NUMBER  31 

VECTOR  NUMBER  32 

VECTOR  NUMBER  33 

VECTOR  NUMBER  34 

VECTOR  NUMBER  35 

VECTOR  NUMBER  3  6 

VECTOR  NUMBER  37 

VECTOR  NUMBER  38 

VECTOR  NUMBER  3  9 

VECTOR  NUMBER  4  0 

VECTOR  NUMBER  41 

VECTOR  NUMBER  42 

VECTOR  NUMBER  43 

VECTOR  NUMBER  4  4 

VECTOR  NUMBER  4  5 

VECTOR  NUMBER  4  6 

THE  ENTRY  POINTS  TO  TRAP  #15  HANDLER. 

VECTOR  NUMBER  4  8 

VECTOR  NUMBER  4  9 

VECTOR  NUMBER  50 

VECTOR  NUMBER  51 

VECTOR  NUMBER  52 

VECTOR  NUMBER  53 

VECTOR  NUMBER  54 

VECTOR  NUMBER  55 

VECTOR  NUMBER  5  6 

VECTOR  NUMBER  57 

VECTOR  NUMBER  5  8 


;THIS  ADDRRESS  IS  THE  END  OF  EXCEPTION 
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HERE: 

MOVEA . L 

#$00, AO 

LI: 

MOVE.L 

(A0) , (A0)+ 

CMP.L 

#LAST,f  AO 

BLE 

LI 

NOP 

MOVE.L 

#$00001FC00,D1 

LONG 

$4E7B1803 

MOVE.L 

#$1F800,D2 

LONG 

$4E7B2800 

AND  I 

#INTR  ENB,SR 

MOVE.L 

PHAN  LOW, DO 

End  of  initialization 
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VECTOR  TABLE. 
LOAD  THE  START  ADDRESS  OF  PGM. 
COPY  ROM  CONTENTS  TO  RAM. 


[D1]<-$1FC00. 

[USP]<-[D1] . 

[D2]<-$1F800. 

[SSP]<-[D1] . 
ENABLE  INTERRUPTS. 
MAKE  PHANTOM  LOW, SWITCH  TO  RAM. 


TO  RAM. 


/*   MAIN  Routine  Below  */ 

/* 

Function:   Loops  endlessly,  waiting  for  a  command  from  Macintosh. 

Each  command,  which  is  sent  by  the  Macintosh,  has  a  special 
code.  These  codes  for  the  commands  are  shown  below: 


'0' 
'1' 
'2' 
'3' 

'4' 
'5' 


for  DOWNLOAD 
for  UPLOAD 
for  GO 
for  CALL 


Command 
Command 
Command 
Command 


for  MEMDISPLAY  Command 
for  MEMWRITE  Command 
for  DOWNLOAD    Command 


(  With  Coprocessor  Enabled  ) 


*/ 

4AIN 

JSR 

RUART+ROM 

CMP. 

B 

#0,D3 

BNE. 

S 

SKIP  0 

BSR 

DOWNLOAD 

BRA 

MAIN 

3KIP 

0: 

CMP 

B 

#1,D3 

BNE 
BSR 
BRA 

S 

SKIP  1 
UPLOAD 
MAIN 

SKIP 

1  : 

CMP 

B 

#2,D3 

BNE 
BSR 

S 

SKIP  3 
GO 

3KIP_ 

_3: 

CMP 

B 

#4,D3 

BNE 
BSR 

S 

SKIP  4 
MEMDISPLAY 

After  receiving  one  of  these  commands,  program  execution 
is  switched  to  the  desired  routine.  In  case  of  an  error, 
in  receiving  the  command  byte,  Main  simply  continues  to 
loop,  as  if  no  command  was  received.  In  this  case  user  may 
retry  his  last  command. 

GET  THE  COMMAND  IN  D3 . 

IS  IT  DOWNLOAD  ? . . 

IF  NOT,  CONTINUE  TO  FIND  A  MATCH. 

IF  YES,  DOWNLOAD. 

DOWNLOAD  DONE,  WAIT  FOR  THE  NEXT  COMMAND 

IS  IT  UPLOAD  ?. . 

IF  NOT,  CONTINUE  TO  FIND  A  MATCH . 

IF  YES,  UPLOAD. 

UPLOAD  DONE,  WAIT  FOR  THE  NEXT  COMMAND. 

IS  IT  GO  ?. . 

IF  NOT,  CONTINUE  TO  FIND  A  MATCH. 

IF  YES,  GO. 

IS  IT  MEMDISPLAY  ?.. 

IF  NOT,  CONTINUE  TO  FIND  A  MATCH. 

IF  YES,  MEMDISPLAY. 
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BRA 

MAIN 

SKIP_ 

4  : 

CMP 

B 

#5,D3 

BNE 
BSR 

S 

SKIP_5 
MEMWRITE 

SKIP_ 

_5: 

CMP 

B 

#3,D3 

BNE 
BSR 

S 

SKIP  6 
GO 

SKIP_ 

_6: 

CMP 

B 

#8,D3 

BNE 
BSR 

S 

SKIP  7 
DOWNLOAD 

SKIP 

7  : 

BRA 

MAIN 

MEMDISPLAY  DONE,  WAIT  FOR  THE  NEXT  COMMo 

IS  IT  MEMWRITE  ? . . 

IF  NOT,  CONTINUE  TO  FIND  A  MATCH. 

IF  YES,  MEMWRITE. 

IS  IT  CALL  ?. . 

IF  NOT,  CONTINUE  TO  FIND  A  MATCH. 

IF  YES,  GO  (IN  CASE  OF  'CALL'  IN  MAC). 

IS  IT  DOWNLOAD  WITH  COPROCESSOR  ENABLED 


GO  AND  WAIT  FOR  THE  NEXT  COMMAND. 


MAIN  Routine  Ends 
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/* 

/* 


Communication  Routines  (SUART,  RUART,  DELAY,  GETBIT)  Below   */ 

SUART  Routine   Below   */ 

Function:   SUART  sends  byte  data,  which  is  in  low  byte  of  D3. 

Timing  is  adjusted  such  that  Baud  rate  of  9600  is  obtained, 
Modified 
Registers:  D3  is  used  to  pass  argument  to  SUART.  Other  than  that 

register  contents  are  not  modified. 


Called  by:  UPLOAD,  FUPLOAD,  MEMWRITE,  MEMDISPLAY,  SCNTS . 


*/ 

SUART 

AGAIN 


ONE: 
SKIP 


MOVEM.L  D4-D5,-(SP) 

MOVE.B  #8,D5 

JSR  SEND_ZER+DELAY1 

BTST  #0,D3 

BNE . S  ONE 

JSR  SEND_ZER+DELAY1 

JMP  ROM+SKIP 

JSR  SEND_ONE+DELAYl 

ROR.B  #1,D3 

SUBQ.B  #1,D5 

BNE . S  AGAIN 

JSR  SEND_ONE+DELAYl 

JSR  SEND_ONE+DELAYl 

MOVEM.L  (SP)+,D4-D5 

RTS 


BITS  TO  BE  SEND  SHOULD  BE  IN  D3 
EIGHT  BITS  ARE  TO  BE  SENT. 
SEND  START  BIT. 
EVALUATE  LEAST  SIGNIFICANT  BIT. 

SEND  A  ZERO  . 

SEND  A  ONE. 

GET  THE  OTHER  BIT. 


SEND  FIRST  STOP  BIT. 

SECOND  STOP  BIT. 

RESTORE  ORIGINAL  REGISTERS 


SUART  Routine   Ends 
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DELAYl  Routine   Below 
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Function:   DELAY1  provides  a  delay  of  (1/9600)  seconds.  Which  is 

needed  to  provide  a  Baud  rate  of  9600. 
Modified 
Registers:  D4  is  modified.  But  this  will  not  affect  the  original  D4 

value,  since  it  was  saved  in  SUART. 


Called  by:  SUART 


*/ 

}ELAY1 : 

MOVE.L 

#$0A,D4 

[iOOPI: 

NOP 
NOP 

SUB.L 

#1,D4 

BGE 

LOOP1 

NOP 

NOP 

RTS 

GET  THE  DELAY  LOOP  COUNT  IN  D4 . 

THIS  COUNT  AND  NOPs  ASSURE  A  BIT  TIME 

OF  (1/9600)  SECONDS. 
DELAY1  IS  CALLED  BY  SUART,  SINCE  IT  SAVES 

D4  WE  DON'T  NEED  TO  SAVE  D4  HERE. 


RETURN  FROM  DELAY1  SUBROUTINE 


I*      DELAY1  Routine   Ends 


'*      RUART  Routine   Below 
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Function:   RUART  receives  a  byte  of  data  from  RS232  input,  at  a  Baud 

rate  of  9600. 
Modified 
Registers:  D3  is  modified.  It  is  used  to  pass  the  received  byte  to 

the  calling  routine . 

Called  by:  MAIN,  DOWNLOAD,  LDREGTBL,  GO,  MEMWRITE,  MEMDISPLAY,  GETLONG 


SET  RECEIVE  BUFFER  (  BIT  #  0  ) . 

CHECK  RS232_IN,  WAIT  FOR  THE  START  BIT 

ENOUGH   DELAY  FOR  RS232  INTERRUPTS. 


<7 

WART: 

MOVEM . L 

D0-D2/D4-D7,- ( 

START: 

MOVE . B 

#1,D1 

JMP 

INTR_CHK+NEXT1 

JEXT1: 

NOP 
NOP 
NOP 

JMP 

ROM+EXIT1 

NOP 

EXIT1: 

CMP.B 

#0,D1 

BNE.S 

START 

MOVE.L 

#0,D6 

jABI  : 

DBF 

D6,LAB1 

MOVE.L 

$5AB1,D7 

MOVE.B 

#1,D1 

JMP 

INTR   CHK+NEXT2 

IEXT2  : 

NOP 
NOP 
NOP 

IF  [Dl]=l,  RS232  IN  WAS  LOW.  START  BIT 

CAME. 
IF  [D1]=0,  RS232  INPUT  WAS  HIGH.  WAIT  FOR 

THE  START  BIT. 


CHECK  RS232_IN. 

ENOUGH  DELAY  FOR  RS2  32  INTERRUPT 
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EXIT2 


LAB  2 


CIRC: 


JMP 

ROM+EXIT2 

NOP 

CMP  .B 

#0,D1 

BNE.S 

START 

MOVE.L 

#7,D6 

NOP 

DBF 

D6,LAB2 

MOVE.L 

$5AB2,D7 

CLR.B 

D3 

MOVE.B 

#8,D2 

JSR 

ROM+GETBIT 

OR.B 

D1,D3 

ROR.B 

#1,03 

MOVE.L 

$5AB3,D5 

SUB.B 

#1,D2 

BNE.S 

CIRC 

IF  [Dl]=l,  RS232  IN  LOW.  START  BIT  CAME 
IF  [D1J=0,  NO  RS232  IN.  PREVIOUS  START  M 
WAS  SPURIOUS.  WAIT  FOR  START  BIT. 

START  BIT  RECEIVED.  NOW  START  TO  RECEIV1 

FOLLOWING  BITS. 
THE  BITS  WILL  BE  SHIFTED  INTO  D3 . 
8  IS  THE  NUMBER  OF  BITS  TO  BE  RECEIVED 
GET  NEXT  BIT. 
GET  THE  BIT  INTO  D3 . 


AT  THE  EXIT  POINT  WE  ARE  ALREADY  ON  THE 
STOP  BIT  #1.  RECEIVING  THE  BITS  ENDS  HEJ 
NOW  CHECK  STOP  BITS. 


PASS1 


PASS2 


MOVE.B 

D3, $5AB4 

JSR 

ROM+GETBIT 

BTST 

#0,D1 

BNE.S 

PASS1 

JSR 

SENDERROR+ROM 

MOVEM . L 

(SP) +,D0-D2/D4 

JMP 

MAIN 

JSR 

ROM+GETBIT 

BTST 

#0,D1 

BNE.S 

PASS2 

JSR 

SENDERROR+ROM 

MOVEM . L 

(SP)+,D0-D2/D4 

JMP 

MAIN 

MOVEM . L 

(SP) +,D0-D2/D4 

RTS 

CHECK  FIRST  STOP  BIT. 

IF  IT  CAME  CHECK  FOR  THE  SECOND  STOP  BIr. 
SEND  RECEIVE  ERROR  TO  MACINTOSH. 
■D7;  AND 

;  RETURN  TO  MAIN  LOOP,  WAIT  FOR  NEXT 

COMMAND. 
CHECK  SECOND  STOP  BIT. 


SEND  RECEIVE  ERROR  TO  MACINTOSH.. 
■D7;AND.  .  . 

/RETURN  TO  MAIN  LOOP,  WAIT  FOR  NEXT  COMt"! 
-D7; 


RUART  Routine   Ends   */ 

GETBIT  Routine   Below   */ 
Function 


GETBIT  receives  a  "bit"  of  data  from  RS232  input,  at  a  Baud 

rate  of  9600.  It  senses  the  RS232  input. 
Modified 
Registers:  Dl  is  modified.  It  is  used  to  pass  the  received  bit  to 

the  calling  routine. 

Called  by:  RUART. 
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3ETBIT: 

MOVEM . L 

D5-D6,-(SP) 

MOVE.B 

#1,D1 

MOVE.L 

$5AB5,D5 

JMP 

INTR_CHK+NEXT3 

MEXT3 : 

NOP 
NOP 
NOP 

JMP 

ROM+EXIT3 

NOP 

SXIT3: 

MOVE.L 

$5AB6,D5 

MOVE.L 

#1,D6 

BTST 

#0,D1 

BEQ.S 

SKIPO 

MOVE.L 

#5,D6 

SKIPO: 

DBF 

D6, SKIPO 

MOVE.L 

#2,D6 

\DJ: 

DBF 

D6,ADJ 

MOVE.L 

$5AB7,D5 

MOVEM . L 

(SP)+,D5-D6 

RTS 

CHECK  RS232  INPUT. 

PROVIDE  ENOUGH  DELAY  FOR  RS2  32  INTERRUPT 


WITH  THIS  MOVE.L  TO  D5,  THE  FOLLOWING  DBF 
INSTRUCTIONS  WITH  2  DIFFERENT  COUNTS  IN 
D6  GUARANTEES  THE  SAME  AMOUNT  OF  DELAY 
IN  CASE  OF  AN  INTERRUPT  OCCURRENCE  OR  NOT 


/*   GETBIT  Routine   Ends   */ 

/*   Communication  Routines  (SUART,  RUART,  DELAY,  GETBIT)  Ends   */ 


/*   FLTCLR  Routine  Below   */ 

Function:   FLTCLR  initializes  the  Coprocessor's  control  and  data 
registers  to  zero.  After  power-up,  the  Coprocessor's 
registers  contain  (  $7FFF  000F  FFFF  FFFF  )  in  Packed  Format 
FLTCLR  clears  all  Floating  Point  registers . 


Modif 

ied 

Regis 

ters  : 

None  . 

Calle 

d  by: 

DOWNLOAD 

"/ 

rLTCLR : 

WORD 

$F23C 

WORD 

$4000 

WORD 

$0000 

WORD 

$0000 

WORD 

$F23C 

WORD 

$4080 

WORD 

$0000 

WORD 

$0000 

WORD 

$F23C 

WORD 

$4100 

WORD 

$0000 

WORD 

$0000 

WORD 

$F23C 

FMOVE.L  #0,FP0 


FMOVE.L  #0,FP1 


FMOVE.L  #0,FP2 


FMOVE.L  #0,FP3 
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WORD 

$4180 

WORD 

$0000 

WORD 

$0000 

WORD 

$F23C 

WORD 

$4200 

WORD 

$0000 

WORD 

$0000 

WORD 

$F23C 

WORD 

$4280 

WORD 

$0000 

WORD 

$0000 

WORD 

$F23C 

WORD 

$4300 

WORD 

$0000 

WORD 

$0000 

WORD 

$F23C 

WORD 

$4380 

WORD 

$0000 

WORD 

$0000 

RTS 

FMOVE.L  #0,FP4 


FMOVE.L  #0,FP5 


FMUVE.L  #0,FP6 


FMOVE.L  #0,FP7 


/*   FLTCLR  Routine  Ends   */ 

/*   DOWNLOAD  Routine  Below   */ 

Function:   DOWNLOAD,  Downloads  the  bytes  (in  user  program), 

which  are  sent  by  the  Macintosh. 
Modified 
Registers:  None. 

Called  by:  MAIN. 
*/ 
DOWNLOAD 


DLOAD: 


LAB9  9 


MOVE . B   #  0 , COP_ENB 
BTST.B   #3,D3 
SNE      COP_ENB 
MOVEM.L  D0-D7/A0-A7,- 


COPROCESSOR  ENABLED  BY  USER  ? 
. .YES,  SET  COPROCESSOR  ENABLED 


FLAG 


(SP) 


JSR 

GETLONG 

MOVEA . L 

D3,A1 

MOVE.L 

#8,D6 

JSR 

RUART+ROM 

LSL.L 

D6,D3 

JSR 

RUART+ROM 

AND.L 

#$0000FFFF,D3 

MOVE.L  D3,D0 


MOVE.L  A1,A3 
MOVE.L  D0,D4 
JSR      RUART+ROM 


D3  DOWNLOAD  ADDRESS. 

[Al]<-  LOAD  ADDRESS 

COUNTER  TO  SHIFT  LOW  BYTE  TO  HIGH  BYTE 

GET  HIGH  BYTE  OF  COUNT. 

MOVE  LOW  BYTE  TO  HIGH. 

GET  LOW  BYTE  OF  COUNT. 

CLEAR  HIGH  WORD . 

[D0]<-  COUNT. 

THE  NUMBER  OF  BYTES  TO  BE  DOWNLOADED 

EQUAL  TO  COUNT  IN  DO  ABOVE. 

NOW  START  TO  RECEIVE  COUNT  NUM.  OF  BYTE: 

;SAVE  LOAD  ADDRESS  FOR  CHECKSUM  CALCULA't 
/SAVE  COUNT  FOR  CHECKSUM  CALCULATION. 
/LOAD  THE  USER  PROGRAM. 


AR1 
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MOVE.B 

D3,  (Al)  + 

SUB.W 

#1,D0 

BNE.S 

LAB99 

JSR 

RUART+ROM 

MOVE.B 

D3,D5 

MOVE.L 

A3,A1 

MOVE.B 

(A1)+,D0 

SUB.W 

#1,D4 

LAB8  8: 

MOVE.B 

(Al) +  ,D6 

EOR.B 

D6,D0 

SUB.W 

#1,D4 

BNE.S 

LAB88 

CMP.B 

D5,D0 

BNE.S 

C  ERROR 

BSR 

FLTCLR 

BSR 

UPDATETBL2 

BSR 

UPLOAD 

TST.B 

COP  ENB 

BEQ.S 

SKP  CO 

BSR 

UPDTFLTBL 

BSR 

FUPLOAD 

3KP_C0 : 

MOVEM . L 

(SP)+,D0-D7/A0 

RTS 

:_ERROR : 

JSR 

SENDERROR+ROM 

MOVEM . L 
RTS 

(SP)+,D0-D7/A0 

GET  CHECKSUM. [D3.B]<-  CHECKSUM. 
SAVE  RECEIVED  CHECKSUM  IN  [D5.B] 
RETRIEVE  LOAD  ADDRESS. 
BEGIN  TO  CALCULATE  CHECKSUM. 


CHECKSUM  CALCULATION  DONE  HERE. 

COMPARE  RECEIVED  &  CALCULATED  CHECKSUMS 

IN  CASE  OF  ERROR  ALERT  MACINTOSH. 

LOAD  REGISTER  TABLE  WITH  CURRENT  VALUES 
SEND  THESE  VALUES  TO  MACINTOSH. 


-A7; 

/RETURN  TO  CALLER 

-A7; 


/*   DOWNLOAD  Routine  Ends   */ 


LDREGTBL  Routine  Below 
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Function 


Modified 


LDREGTBL  receives  the  portion  of  data  which  contains  register 
information.  Places  this  data  in  the  register  table,  which 
starts  at  the  address  TBL  DO. 


Registers :  None . 


Called  by:  GO 


^DREGTBL 


ORE 


MOVEM. L  D0-D7/A0-A7, -(SP) ; 


MOVE.L 

MOVE.L 

MOVE.L 

JSR 

MOVE.B 

SUB.L 

BNE.S 

JSR 


68 (SP) ,D4 
72 (SP) ,A6 
A6,A5 
RUART+ROM 
D3, (A6) + 
#1,D4 
MORE 
RUART+ROM 


24  REGS  x  4  =  96  BYTES  WILL  BE  RECEIVED. 
PUT  BASE  LOADING  ADDRESS  IN  A6 . 
SAVE  A6  IN  A5  (FOR  USE  IN  CHECKSUM  CALC) 
START  RECEIVING  BYTES. . . 


RECEIVE  ENDS. . . 

GET  CHECKSUM  BYTE. (IT  WILL  BE  IN  [D3]) 
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COMPUTE  CHECKSUM. . . 

24  REGS  x  4  =  96  BYTES  WILL  BE  RECEIVED, 
108  (FOR  FLOATING) 


CHECKSUM  COMPUTATION  ENDS. 

RETURN  TO  CALLER. 

IN  CASE  OF  ERROR  ALERT  MACINTOSH. 


MOVE.L  68(SP),D4 

MOVE.B  (A5)+,D0 

SUB.L  #1,D4 

GETCHK SUM: MOVE.B  (A5)+,D6 

EOR.B  D6,D0 

SUB.L  #1,D4 

BNE . S  GETCHKSUM 

CMP.B  D3,D0 

BNE . S  C_ERROR2 

BRA  FINISH 

C_ERROR2 :  JSR  SENDERROR+ROM 
FINISH:    MOVEM.L  (SP ) +, D0-D7 /A0-A7 ; 

RTS 

/*   LDREGTBL  Routine  Ends   */ 

/*   UPLOAD  Routine  Below   */ 

Function:   ULPOAD  sends  the  data  which  is  contained  in  register  table, 

to  the  Macintosh. 
Modified 
Registers:  None. 

Called  by:  DOWNLOAD,  TRAPH,  TRACEHANDLER. 


*/ 

UPLOAD 

ROUND: 


MOVEM.L  D0-D7/A0-A7, - (SP) ; 

MOVEA.L  #TBL_D0,A6 

MOVE.B  #96, D4 

MOVE.B  (A6)+,D3 

JSR  ROM+SUART 

MOVE.B  $6664, D3 

SUB.B  #1,D4 

BNE . S  ROUND 

MOVEM.L  (SP) +,D0-D7/A0-A7; 


SET  BYTES  COUNT  IN  D4 


THIS  MOVE.B  IS  FOR  ADJUSTING  THE  TIMING. 
[D0]<-  COUNT. 


/* 
/* 


RTS 
UPLOAD  Routine  Ends   */ 

FUPLOAD  Routine  Below 


/RETURN  TO  CALLER 
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Function:   FULPOAD  sends  the  data  which  is  contained  in  Floating  Point 

Register  Table,  to  the  Macintosh. 
Modified 
Registers :  None . 

Called  by:  DOWNLOAD,  TRAPH,  TRACEHANDLER. 
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FUPLOAD 


FROUND 


SET  BYTES  COUNT  IN  D4  . 


MOVEM.L  D0-D7/A0-A7, -(SP) ; 

MOVEA.L  #TBL_FPCR,A6 

MOVE.B  #108,04 

MOVE.B  (A6)+,D3 

JSR  ROM+SUART 

MOVE.B  $6666, D3 

SUB.B  #1,D4 

BNE . S  FROUND 

MOVEM.L  (SP) +,D0-D7/A0-A7; 

RTS  ; RETURN  TO  CALLER 


THIS  MOVE.B  IS 
[D0]<-  COUNT. 


FOR  ADJUSTING  THE  TIMING 


FUPLOAD  Routine  Ends 
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GO  Routine  Below   */ 

Function:   GO  receives  the  following  parameters  in  that  order 

1-  Display  Steps  Byte 

2-  Five  Break  Point  Addresses 

3-  Five  Break  Point  Counts 

4-  All  of  the  Registers,  Program  Counter. 
Modified 

Registers :  None . 


*/ 
30 


Called  by:  MAIN. 


;etpts 


3ETCTS 


MOVE.B  #$AA,VIOL_FLAG 

MOVE.B  D3,SAVEC0DE 

MOVE.B  #1,FIRSTINST 

JSR  RUART+ROM 

MOVE.B  D3,DISP_STEP 

MOVE.B  #5,D4 

LEA  BRKPT1,A6 

JSR  GETLONG 

MOVE.L  D3, (A6) + 

SUB.B  #1,D4 

BNE.S  GETPTS 

MOVE.L  #8,D6 

MOVE.B  #5,D4 

LEA  BRKCNT1,A6 

JSR  RUART+ROM 

LSL.L  D6,D3 

JSR  RUART+ROM 

AND.L  #$0000FFFF,D3 

MOVE.L  D3, (A6) + 

SUB.B  #1,D4 

BNE . S  GETCTS 

PEA  TBL_D0 

MOVE.L  #96, -(SP) 

BSR  LDREGTBL 


GET  DISP_STEP  BYTE. 
PUT  IT  IN  ITS  LOCATION. 

LOAD  A6  WITH  THE  ADDRESS  OF  FIRST  BREAK 
POINT  ADDRESS  HOLDER. 


;BRKPT1  THRU  BRKPT5  ARE  LOADED  WITH 
ADDRESSES. 

LOAD  A6  WITH  THE  ADDRESS  OF  FIRST  BRKCNT . 
GET  LOW  BYTE  OF  COUNT. 
MOVE  LOW  BYTE  TO  HIGH. 
GET  LOW  BYTE  OF  COUNT. 
CLEAR  HIGH  WORD. 
[ (A6) ] <-  COUNT. 

BRKCNT1  THRU  5  ARE  LOADED  WITH  THE  COUNTS 


LOAD  THE  REGISTER  TABLE  FROM  MACINTOSH. 
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SKP  CI 


PASS  1 


PASS  2 


PASS  3 


PASS  4 


PASS  5 


ADD.L 

TST.B 

BEQ.S 

PEA 

MOVE.L 

BSR 

ADD.L 

BTST.B 

BNE 

BTST.B 

BNE 

CMPI .L 

BEQ.S 

MOVE.L 

CMPA.L 

BEQ.S 

MOVE.W 

MOVE.W 

CMPI .L 

BEQ.S 

MOVE .L 

CMPA . L 

BEQ.S 

MOVE.W 

MOVE.W 

CMPI.L 

BEQ.S 

MOVE.L 

CMPA . L 

BEQ.S 

MOVE.W 

MOVE.W 

CMPI.L 

BEQ.S 

MOVE.L 

CMPA.L 

BEQ.S 

MOVE.W 

MOVE.W 

CMPI.L 

BEQ.S 

MOVE.L 

CMPA.L 

BEQ.S 

MOVE.W 

MOVE.W 

BSR 

TST.B 

BEQ.S 

BSR 


#8,SP 
COP_ENB 
SKP_C1 
TBL_FPCR 
#108, -(SP) 
LDREGTBL 
#8,SP 
#7,TBL_SR 
PASS_6 
#6,TBL_SR 
PASS_6 
#0,BRKPT1 
PASS_1 
BRKPT1, A6 
TBL_PC,A6 
PASS_1 

(A6) ,TMPPTl+2 
#TRAP_15,  (A6) 
#0,BRKPT2 
PASS_2 
BRKPT2,  A6 
TBL_PC,A6 
PASS_2 

(A6) ,TMPPT2+2 
#TRAP_15, (A6) 
#0,BRKPT3 
PASS_3 
BRKPT3,A6 
TBL_PC,A6 
PASS_3 

(A6) , TMPPT3+2 
#TRAP_15,  (A6) 
#0,BRKPT4 
PASS_4 
BRKPT4,  A6 
TBL_PC,A6 
PASS_4 

(A6) , TMPPT4+2 
#TRAP_15, (A6) 
#0,BRKPT5 
PASS_5 
BRKPT5,A6 
TBL_PC,A6 
PASS_5 

(A6) ,TMPPT5+2 
#TRAP_15,  (A6) 
UPDATEREGS 
COP_ENB 
SKP_C2 
UPDTFLREGS 


IF  USER  DOES  NOT  ENABLE  COPROCESSOR, 
DO  NOT  WAIT  FOR  FLOATING  REGISTERS. 


LOAD  THE  FLOATING 

MACINTOSH. 
IS  TRACE  ALL  ? 
.  .  .YES  ,  DO  NOT 
IS  TRACE  BRANCH 
.  .  .YES  ,  DO  NOT 


REG.  TABLE  FROM 


#15 


INSERT  TRAP 

INSERT  TRAP  #15 
IN  CASE  OF  NO  BREAK_POINT  FOR  ANY  BRKPT 
'$0000'  WILL  BE  SENT  FROM  MAC.  IF  IT  IS 
ZERO  THEN  SKIP  SAVING  AND  CHECK  OTHERS. 
IS  BREAKPOINT  =  PC  ? 

...  YES  DO  NOT  INSERT  TRAP  15  CODE. 
IF  BRKPT1  IS  NOT  EQUAL  TO  "^0000  THIS 
MEANS  TAHT  A  BRKPT  WILL  OCCUR.  AND  FIRST 
PIECE  OF  CODE  IS  TAKEN  OUT  AND  SAVED  IN 
TMPPTx,  THEN  TRAP_15  CODE  IS  INSERTED. 

IS  BREAKPOINT  =  PC  ? 

. . .  YES  DO  NOT  INSERT  TRAP  15  CODE 


IS  BREAKPOINT  =  PC  ? 

. .  YES  DO  NOT  INSERT  TRAP  15  CODE 


IS  BREAKPOINT  =  PC  ? 

. .  YES  DO  NOT  INSERT  TRAP  15  CODE 


IS  BREAKPOINT  =  PC  ? 

...  YES  DON'T  INSERT  TRAP  15  CODE. 


UPDATE  REGISTERS  FROM  THE  REGISTER  TAB] 
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MOVE 

L 

TBL  USP,A0 

MOVE 

L 

A0,USP 

MOVE 

L 

TBL  SSP,A0 

LONG 

$4E7B8803 

MOVE 

L 

TBL  ISP,A0 

LONG 

$4E7B8804 

CMP.B 

#2,SAVECODE 

BEQ.S 

GOGO 

BTST.B 

#5, TBL  SR 

BNE.S 

N  USER 

MOVE.L 

TBL  USP,A0 

MOVE.L 

#CALL,- (AO) 

MOVE.L 

A0,USP 

BRA 

GOGO 

BTST.B 

#4, TBL  SR 

BNE.S 

N  INTR 

MOVE.L 

TBL  ISP,A0 

MOVE.L 

#CALL,- (AO) 

LONG 

$4E7B8804 

BRA 

GOGO 

MOVE.L 

TBL  SSP,A0 

MOVE.L 

#CALL,- (AO) 

LONG 

$4E7B8803 

MOVE . L 

TBL  A0,A0 

MOVE.W 

#$0000, -(SP) 

MOVE.L 

TBL  PC, -(SP) 

MOVE.W 

TBL  SR, -(SP) 

BSET.B 

#7,  (SP) 

BCLR.B 

#6, (SP) 

RTE 

MOVE.B  #5,D4 

LEA  BRKPT1,A6 

:LR_ALL:   MOVE.L  #$00,  (A6)  + 

SUB.B  #1,D4 

BNE . S  CLR_ALL 

BRA  PASS  5 


READY  FOR  USP . 

LOAD  USP  FROM  TABLE. 

READY  FOR  SSP . 

LOAD  SSP  FROM  REG . TABLE . 

READY  FOR  ISP. 

LOAD  ISP  FROM  REG . TABLE . 

SKIP  LOADING  PC. 

DESIRED  PC  WILL  BE  LOADED  WITH 

THE  USE  OF  'RTE'  INSTRUCTION. 


LOAD  USP  AFTER  PUSHING  CALL  ADDRESS 


LOAD  ISP  AFTER  PUSHING  CALL  ADDRESS 


LOAD  ISP  AFTER  PUSHING  CALL  ADDRESS. 

LOAD  A0 . IT  WAS  SKIPPED  ABOVE . 

PUSH  FORMAT/OFFSET  WORD. 

PUSH  THE  PROGRAM  COUNTER  ON  TO  THE  STACK 

SET  Tl   (HIGH  TRACE  BIT) . 

CLEAR  TO  (LOW  TRACE  BIT) . 

(Tl  TO  =  1  0)  ALLOWS  TRACE  ALL. 
THIS  WILL  POP  THE  NEW  PC  &  SR  VALUES 
OFF  THE  STACK  AND  CONTINUE  EXECUTION 
WITH  THE  INSTRUCTION  AT  NEW  PC  VALUE. 

LOAD  A6  WITH  THE  ADDRESS  OF  FIRST  BREAK 
POINT  ADDRESS  HOLDER. 


'*      GO  Routine  Ends 


7 


i*      MEMWRITE  Routine  Below   */ 

Function:   MEMWRITE  writes  the  user  specified  data  (Byte/Word/LongWord) 
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into  user  specified  memory  locations 
Modified 
Registers:  None. 


Called  by:  MAIN 


*/ 
MEMWRITE 


CONTINUE 


VERIFY 
TR  ALL 


THERE 


MOVEM . L 

JSR 

MOVE.B 

JSR 

MOVEA . L 

MOVE.L 

MOVE.B 

BCLR 

JSR 

MOVE.B 

SUB.B 

BNE.S 

BTST 

BNE.S 

BRA 

BCLR 

MOVE . B 

JSR 

SUB.B 

BNE.S 

MOVEM . L 

RTS 


D0-D7/A0-A7,- ( 

RUART+ROM 

D3,D4 

GETLONG 

D3,A6 

A6,A5 

D4,D5 

#7,D4 

RUART+ROM 

D3, (A6) + 

#1,D4 

CONTINUE 

#7,D5 

VERIFY 

THERE 

#7,D5 

(A5) +,D3 
SUART+ROM 
#1,D5 
TR_ALL 

(SP)+,D0-D7/A0 


SP)  ; 

GET  SIZE. 
[D4.B]<-  SIZE. 

TA6]<-  MODIFY  ADDRESS 
SAVE  A6  IN  A5. 


WRITE  TO  MEMORY,  BYTE  BY  BYTE. 
LOOP  UNTIL  SIZE  BYTES  ARE  RECEIVED, 
(ie.,  FOUR  BYTES  IF  SIZE  =  LONGWORD) 
BIT  #7  OF  SIZE  BYTE  IS  SET  BY  MACINTOS 
IF  VERIFY  WAS  DESIRED. 


IF  USER  WANTS  TO  VERIFY 
AND  SEND  TO  MACINTOSH. 


-A7; 

; RETURN  TO  CALLER. 


THEN  READ  BACK 


/*   MEMWRITE  Routine  Ends   */ 


MEMDISPLAY  Routine  Below 


7 


Function 


Modified 


MEMDISPLAY  receives  the  user  specified  address  range 
(16  bytes  at  a  time),  and  fetches  the  bytes  from  these 
memory  locations,  and  sends  these  bytes  to  Macintosh. 


Registers :  None . 


Called  by:  MAIN. 
*/ 
MEMDISPLAY:  MOVEM . L  D0-D7/A0-A7 , - (SP) ; 


JSR 

GETLONG 

MOVEA . L 

D3,A6 

JSR 

RUART+ROM 

MOVE.B 

D3,D4 

MOVE.B 

(A6) +,D3 

[A6]<-  DISPLAY  ADDRESS. 
GET  LOW  BYTE  OF   COUNT. 

[D4.B]<-  COUNT. 

PARAMETERS  ARE  OBTAINED  NOW,  START  TO  SJl 
THOSE  MEMORY  CONTENTS  TO  MACINTOSH. 
BYTE  TO  BE  SENT  IS  IN  D3  NOW. 
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MOVE.B 

D3,D0 

JSR 

SUART+ROM 

SUB.B 

#1,D4 

BEQ.S 

SKPTOUR 

rOUR_l : 

MOVE.B 

(A6)+,D3 

EOR.B 

D3,D0 

JSR 

SUART+ROM 

SUB.B 

#1,D4 

BNE.S 

TOUR  1 

SKPTOUR: 

MOVE.B 

D0,D3 

JSR 

SUART+ROM 

MOVEM . L 

(SP)+,D0H 

RTS 

SEND  THE  BYTE 


BYTE  TO  BE  SENT  IS  IN  D3  NOW. 
CHKSUM  WILL  ACCUMULATE  IN  [DO.B] . 
SEND  THE  BYTE,  WHICH  IS  ALREADY  IN  D3 


[D3]  < —  CHKSUM  . . . 

SEND  CHKSUM,  WHICH  IS  ALREADY  IN  [D3.B] 

J; 

/RETURN  TO  CALLER 


MEMDISPLAY  Routine  Ends 


UPDTFLTBL  Routine  Below 


7 


Function 


Modified 


UPDTFLTBL  updates  the  Floating  Point  Register  Table. 
It  moves  the  control  registers  as  longwords,  and  the 
Floating  Point  Registers  as  packed,  to  the  table. 


Registers:  None. 


Called  by:  TRAPH,  TRACEHANDLER. 


*/ 

JPDTFLTBL:MOVE.L 
MOVE.L 


ART  FL 


LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
LONG 
MOVE 
RTS 


A0,SAVEA0 

#TBL_FPCR,AO 

$F218BC00 

$F2186C11 

$F2186C91 

$F2186D11 

$F2186D91 

$F2186E11 

$F2186EA1 

$F2186F21 

$F2186FA1 

SAVEA0,A0 


SAVE  AO 

WITHOUT  DISTURBING  THE  STACK 

[A0]<-  TABLE  LOWER  BASE  ADDRESS. 

FMOVEM . L 

FPCR/FPSR/FPIAR, (A0)+ 

FMOVE . P 

FPO, (A0)+ 

FMOVE . P 

FP1, (AO) + 

FMOVE . P 

FP2, (A0)+ 

FMOVE . P 

FP3, (AO) + 

FMOVE . P 

FP4, (A0)+ 

FMOVE . P 

FP5, (A0)+ 

FMOVE . P 

FP6, (A0)+ 

FMOVE . P 

FP7, (A0)+ 

m      UPDTFLTBL  Routine  Ends 


W      UPDATETBL  Routine  Below   */ 


Function:   UPDATETBL  updates  the  register  table.  Moves  the  copies 

of  MC68020  registers,  to  the  table. 
Modified 
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Registers:  None 


Called  by:  TRAPH. 

*/ 

UPDATETBL : MOVE . L   AO , SAVEAO 

MOVE . L   #  TBL_USP , AO 
MOVEM.L  D0-D7/A0-A6,- (AO) 


MSPTR 


SKIPP 


MOVE 

.L 

SAVEAO, TBL  AO 

MOVE 

,L 

USP,A0 

MOVE 

.L 

AO, TBL  USP 

LONG 

$4E7A8803 

MOVE 

L 

A0,TBL  SSP 

LONG 

$4E7A8804 

MOVE 

L 

A0,TBL  ISP 

BTST 

B 

#4, TBL  SR 

BNE.S 

MSPTR 

ADD.L 

#28, TBL  ISP 

BRA 

SKIPP 

ADD.L 

#2  8,TBL_SSP 

MOVE 

L 

22  (SP)  ,TBL  PC 

MOVE 

W 

#$00, TBL  SRHI 

MOVE 

W 

20  (SP)  ,TBL_SR 

LONG 

$4E7A8801 

MOVE 

L 

A0,TBL  VBR 

LONG 

$4E7A8002 

MOVE 

L 

A0,TBL  CACR 

LONG 

$4E7A8802 

MOVE 

L 

A0,TBL  CAAR 

MOVE 

L 

DO, SAVEDO 

LONG 

$4E7A0001 

MOVE 

L 

DO, TBL  SFC 

LONG 

$4E7A0000 

LSL.L 

#4,  DO 

OR.L 

DO, TBL  SFC 

MOVE 

L 

SAVEDO, DO 

MOVE 

L 

SAVEAO, AO 

RTS 

SAVE  AO  WITHOUT  DISTURBING  THE  STACK. 
[A0]<-  TABLE  LOWER  BASE  ADDRESS. 
;LOAD  ALL  DATA  REGS.  AO  IS  LOADED  DUMM} 
IT  WILL  BE  OVERWRITTEN  ON  NEXT  LINE. 
REAL  VALUE  OF  AO  IS  SAVED. 

USP  IS  LOADED. 

[A0]<-  [MSP] 
LOAD  MSP . 

[A0]<-  [ISP] 
LOAD  ISP. 
DID  USER  CHOOSE  TO  USE  ISP  ?.. 

OR  MSP  ? . . 
2  8  BYTES  STACK  SPACE  IS  USED  BY: 
8  BYTES  BY  TRAP#15  4  WORD  STACK  FRAME, 
16  BYTES  BY  SAVING  D3,  D4,  A5,  A6   REGS 
4  BYTES  BY  BSR  UPDATETBL  IN  TRAP_  15 

HANDLER. 
LOAD  PC.  (IT  IS  AT  LOCATION   SP+22)  . 
LOAD  '$0000'  FOR  SR  HIGH  WORD. 
LOAD  SR  LOW  WORD.  (IT  IS  AT  LOCATION 
SP+20) . 

LOAD  VBR. 

LOAD  CACR. 

LOAD  CAAR. 

[D0]<-  DFC. 
DFC  IS  IN  ITS  PLACE. 
[D0]<-  SFC. 


RETURN  TO  CALLER 


UPDATETBL  Routine  Ends 


/*   UPDATETBL2  Routine  Below   */ 

Function:   UPDATETBL2  updates  the  register  table.  Moves  the  copies 

of  MC68020  registers,  to  the  table.  Slightly  different  fr 
UPDATETBL . 
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Modified 
Registers :  None . 

Called  by:  DOWNLOAD. 

*/ 

JPDATETBL2 :  MOVE . L  AO, SAVEAO 
MOVE . L  #TBL_USP , AO 
MOVEM.L  D0-D7/A0-A6,- 


4SPTR2 
3KIPP2 


(AO 


L 
L 

L 


MOVE 

MOVE 

MOVE 

LONG 

MOVE.L 

LONG 

MOVE.L 

BTST.B 

BNE.S 

ADD.L 

BRA 

ADD.L 

MOVE . L 

MOVE.W 

MOVE.L 

MOVE.W 

LONG 

MOVE.L 

LONG 

MOVE.L 

LONG 

MOVE 

MOVE 

LONG 

MOVE .L 

LONG 

LSL.L 

OR.L 

MOVE.L 

MOVE.L 

RTS 


L 
L 


SAVEAO, TBL_A0 

USP,A0 

A0,TBL_USP 

$4E7A8803 

A0,TBL_SSP 

$4E7A8804 

A0,TBL_ISP 

#4,TBL_SR 

MSPTR2 

#$48,TBL_ISP 

SKIPP2 

#$48, TBL_SSP 

#$1000,TBL_PC 

#$00,TBL_SRHI 

#TBL_SR,A0 

SR, (AO) 

$4E7A8801 

A0,TBL_VBR 

$4E7A8002 

AO,TBL_CACR 

$4E7A8802 

AO,TBL_CAAR 

DO, SAVEDO 

$4E7A0001 

D0,TBL_SFC 

$4E7A0000 

#4, DO 

D0,TBL_SFC 

SAVEDO, DO 

SAVEAO, AO 


'*   UPDATETBL2  Routine  Ends 


'*      UPDATETBL3  Routine  Below   */ 


;SAVE  AO  WITHOUT  DISTURBING  THE  STACK. 
[A0]<-  TABLE  LOWER  BASE  ADDRESS. 
;LOAD  ALL  DATA  REGS.  AO  IS  LOADED  DUMMY 
IT  WILL  BE  OVERWRITTEN  ON  NEXT  LINE . 
REAL  VALUE  OF  AO  IS  SAVED. 

USP  IS  LOADED. 
[A0]<-  [MSP] . 
LOAD  MSP . 
[A0]<-  [ISP]  . 
LOAD  ISP. 

DID  USER  CHOOSE  TO  USE  ISP  ?.. 
OR  MSP  ? . . 


LOAD  '$1000' 
LOAD  '$0000' 


FOR  PC  !  .  .  . 

FOR  SR  HIGH  WORD 


LOAD  SR  LOW  WORD. 

LOAD  VBR. 

LOAD  CACR. 

LOAD  CAAR. 

[D0]<-  DFC. 
DFC  IS  IN  ITS  PLACE 
[D0]<-  SFC. 


; RETURN  TO  CALLER. 


Function 


Modified 


UPDATETBL3  updates  the  register  table.  Moves  the  copies 

of  MC68020  registers,  to  the  table.  Slightly  different  from 

UPDATETBL  and  UPDATETBL2 . 
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Registers:  None. 

Called  by:  TRACEHANDLER . 

*/ 

UPDATETBL3 :  MOVE . L  AO, SAVEAO 
MOVE.L  #TBL_USP,A0 
MOVEM.L  D0-D7/A0-A6,- 


MOVE.L 

SAVEAO, TBL  AO 

MOVE.L 

USP,A0 

MOVE.L 

A0,TBL  USP 

LONG 

$4E7A8803 

MOVE.L 

A0,TBL  SSP 

LONG 

$4E7A8804 

MOVE.L 

A0,TBL  ISP 

BTST.B 

#4, TBL  SR 

BNE.S 

MSPTR3 

ADD.L 

#16, TBL  ISP 

BRA 

SKIPP3 

MSPTR3 : 

ADD  .L 

#16, TBL  SSP 

SKIPP3 : 


MOVE.L 

MOVE.W 

MOVE.W 

LONG 

MOVE.L 

LONG 

MOVE .L 

LONG 

MOVE .L 

MOVE.L 

LONG 

MOVE.L 

LONG 

LSL.L 

OR.L 

MOVE.L 

MOVE .L 

RTS 


6(SP) ,TBL_PC 

#$0  0,TBL_SRHI 

4  ( SP ) , TBL_SR 

$4E7A8801 

A0,TBL_VBR 

$4E7A8002 

AO,TBL_CACR 

$4E7A8802 

AO,TBL_CAAR 

DO, SAVEDO 

$4E7A0001 

D0,TBL_SFC 

$4E7A0000 

#4, DO 

DO, TBL_SFC 

SAVEDO,  DO 

SAVEAO, AO 


;SAVE  AO  WITHOUT  DISTURBING  THE  STACK. 
; [A0]<-  TABLE  LOWER  BASE  ADDRESS. 
(A0)/LOAD  ALL  DATA  REGS.  AO  IS  LOADED  DUMMY 

IT  WILL  BE  OVERWRITTEN  ON  NEXT  LINE. 

REAL  VALUE  OF  AO  IS  SAVED. 

USP  IS  LOADED. 

[A0]<-  [MSP] . 
LOAD  MSP . 

[A0]<-  [ISP]  . 
LOAD  I SP . 

DID  USER  CHOOSE  TO  USE  ISP  ?.. 
OR  MSP  ? . . 


XX  BYTES  STACK  SPACE  IS  USED  BY: 
8  BYTES  BY  TRAP #14  4  WORD  STACK  FRAME, 
16  BYTES  BY  SAVING  D3,  D4,  A5,  A6   REGS 
4  BYTES  BY  BSR  UPDATETBL  IN  TRACE  HANDLI 
LOAD  PC.  (IT  IS  AT  LOCATION  SP+6) . 
LOAD  '$0000'  FOR  SR  HIGH  WORD. 
;LOAD  SR  LOW  WORD.   (IT  IS  AT  LOCATION  | 

LOAD  VBR. 

LOAD  CACR. 

LOAD  CAAR. 

[D0]<-  DFC. 
DFC  IS  IN  ITS  PLACE. 
[D0]<-  SFC. 


RETURN  TO  CALLER. 


/*   UPDATETBL3  Routine  Ends 


/*   UPDTFLREGS  Routine  Below   */ 


Function:   UPDTFLREGS  updates  the  Floating  Registers,  with  the  data 
sent  by  the  Macintosh. 
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Modified 

Registers : 

None . 

Called  by: 
*/ 

UPDTFLREGStMOVE 

GO 

.L 

#TBL  FPCR,A0 

LONG 

$F2189C00 

• FMOVEM . L 

(AO) +, FPCR/FPSR/FPIAR 

LONG 

$F2184C00 

• FMOVE . P 

(AO) +,FP0 

LONG 

$F2184C80        , 

: FMOVE . P 

(AO) +,FP1 

LONG 

$F2184D00        , 

• FMOVE . P 

(AO) +, FP2 

LONG 

$F2184D80        , 

• FMOVE . P 

(A0)+,FP3 

LONG 

$F2184E00        , 

FMOVE . P 

(A0)+,FP4 

LONG 

$F2184E80 

• FMOVE . P 

(A0)+,FP5 

LONG 

$F2184F00        , 

• FMOVE . P 

(A0)+,FP6 

LONG 

$F2184F80 

• FMOVE . P 

(A0)+,FP7 

RTS 

UPDTFLREGS  Routine  Ends 


/*   UPDATEREG   Routine  Below   */ 

Function:   UPDATEREGS  updates  the  registers,  with  the  data 

sent  by  the  Macintosh. 
Modified 
Registers:  None. 


Called  by:  GO 

*/ 

JPDATEREGS:  MOVE. 
MOVEM . L 
ADD.L 
MOVEM . L 
MOVE.L 
LONG 
MOVE.L 
LONG 
MOVE.L 
LONG 
MOVE.L 
AND.L 
LONG 
MOVE.L 
LSR.L 
LONG 
MOVE.L 
RTS 


L   #TBL_D0,A0 
(A0)+,D0-D7 
#4,A0 

(A0)+,A1-A6 
TBL_VBR,A0 
$4E7B8801 
TBL_CACR, AO 
$4E7B8002 
TBL_CAAR,  AO 
$4E7B8802 
TBL_SFC,D0 
#$0000000F,D0 
$4E7B0001 
TBL_SFC,D0 
#4,  DO 
$4E7B0000 
TBL  DO, DO 


SKIP  AO  IN  THE  TABLE  (RESTORED  IN  "GO") 

READY  FOR  VBR . 

LOAD  VBR  FROM  REGISTER  TABLE. 

READY  FOR  CACR . 

LOAD  CACR  FROM  REGISTER  TABLE. 

READY  FOR  CAAR . 

LOAD  CAAR  FROM  REGISTER  TABLE. 


[DFC]<-[D0] . 

[SFC]<-  [DO]  . 

SR  WILL  BE  POPPED  OFF  THE  STACK  LATER 


/*   UPDATEREG   Routine  Ends   */ 
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/*   Interrupt  Level  4  HANDLER   Routine  Below   */ 


Function:   HANDLER  clears  Dl  to  indicate  a  '0'  has  been  received. 

A19,  A17  bits  of  the  return  address  are  cleared  to  disable 

further  interrupts,  after  RTE . 
Modified 
Registers :  Dl . 

Called  by:  In  case  of  level  4  Interrupt. 
*/ 
HANDLER:   ANDI.L   #$FFF5FFFF, 2 (SP ) ; 

CLR.B    Dl 

RTE 

/*   Interrupt  Level  4  HANDLER   Routine  Ends   */ 


/*   TRAP  HANDLER  Routine  Below   */ 


Function:   TRAPH,  Handles  Trap  15. 

Puts  all  Registers  &  Stack  Pointer  Contents  to  Memory, 
(namely  to  the  register  table) ,  and  waits  for  Command 
from  Macintosh. 
TRAP  Instruction 

SSP-2  ->  SSP     FORMAT/VECTOR  OFFSET  -> 
SSP-4  ->  SSP  PC  -> 

SSP-2  ->  SSP  SR  -> 

VECTOR  ADDRESS  ->  PC 

Modified 

Registers:  SP,  SR. 


(SSP) 
(SSP) 
(SSP) 


Called  by:  In  case  of  Trap  15  Occurs 


*/ 
TRAPH 


SKP  C3 


SEARCH 


MOVEM .  ] 

SUB.L 

BSR 

TST.B 

BEQ.S 

BSR 

MOVE . L 

MOVE .W 

LEA 

CMP  .L 

DBEQ 

CMP.W 

BLT 

SUB.L 

MOVE.L 

MOVE.W 


D3-D4/A5-A6, 

#2,18(SP) 

UPDATETBL 

COP_ENB 

SKP_C3 

UPDTFLTBL 

18(SP) ,D3 

#4,D4 

BRKPT1, A6 

(A6)+,D3 
D4, SEARCH 
#0,D4 
DSPLY 
#4,A6 

(A6) ,A5 

-18 (A6) , (A5) 


(SP);SAVE  THE  REGISTERSTO  BE  MODIFIED. 

[PC]<-  [PC] -2  (THE  ONE  SAVED  ON  STACK). 
LOAD  REG  TABLE  BEFORE   UPLOADING  IT. 
IF  USER  DOES  NOT  ENABLE  COPROCESSOR 
DO  NOT  UPDATE  FLOATING  REGISTER  TABLE. 

[D3]<-  INSTRUCTION  ADDR .  CAUSING  TRAP_1! 

ONE  OF  THE  BREAKPOINTS  SHOULD  BE  EQUAL 
TO  THAT  ADDRESS. 


IF  SO  DECREMENT  TAHT  BREAKPOINT' S  COUNT 
PUT  THE  ORIGINAL  CODE  BACK  TO  ITS  PLACE 
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CMPI.L 

#0,20(A6) 

BEQ.S 

NOT  SUB 

SUB.L 

#1,20(A6) 

NOT_SUB : 

CMP  .B 

#0,DISP  STEP 

BNE.S 

DSPLY 

CMP.L 

#0,20 (A6) 

BNE.S 

SKPDSPLY 

DSPLY: 

BSR 

UPLOAD 

BSR 

SCNTS 

TST.B 

COP  ENB 

BEQ.S 

SKP  C4 

BSR 

F UP LOAD 

SKP_C4  : 

MOVE .  L 

#5,D4 

LEA 

BRKPT1,A6 

LOOK: 

CMP  .L 

#0,  (A6)  + 

BEQ.S 

DO  NTH 

MOVE.L 

-4 (A6) , A5 

MOVE.W 

-22 (A6) , (A5) 

DO_NTH : 

SUB.L 

#1,D4 

BNE.S 

LOOK 

MOVE.L 

#MAIN, 18 (SP) 

BRA 

RESTORE 

SKPDSPLY 
RESTORE: 


BSET.B 

BCLR.B 

BCLR.B 

BSET.B 

MOVEM . L 

RTE 


#7,16(SP) 
#6,16(SP) 
#4, 16(SP) 
#5, 16(SP) 
(SP)+,D3-D4/A5 


IF  THE  BREAKCOUNT  IS  ZERO,  DON'T  DECREMENT 

IT.  SO  EVERY  TIME  THAT  ADDRESS  IS  REACHED 

A  BREAKPOINT  WILL  OCCUR. 

IF  DISPLAY_STEP  IS  SET,  THEN  DISPLAY  THE 

RESULTS  TO  THE  USER  EACH  TIME  THAT 

IS  REACHED,  REGARDLESS  OF  ITS  COUNT. 

IF  DISPLAY_STEP  IS  NOT  SET,  THEN  DISPLAY 

ONLY  WHEN  ITS  COUNT  DECREMENTS  TO  ZERO, 

SEND  BACK  THE  MOST  RECENT  BREAKCOUNT S . 


RESTORE  ALL  ORIGINAL  INSTRUCTION  CODES 
HAVING  BREAKPOINTS  BEFORE  RETURNING  TO 
MAIN. 


IF  DISPLAYED  THEN  LOOP  IN  MAIN  WAITING  FOR 
THE  NEXT  COMMAND.   (SO  PUT  MAIN  ADDR .  IN 
ITS  PLACE  ON  THE  STACK) .  OTHERWISE  DON'T 
RETURN  TO  MAIN  PGM,  INSTEAD  CONTIUNE  WITH 
THE  EXECUTION  OF  THE  NEXT  INSTRUCTION. 

SET  Tl  OF  STAUS  REGISTER. 

CLEAR  TO  OF  STATUS  REGISTER.   (TRACE  ALL) . 


WILL  BE  IN  SUPERVISOR  MODE  ON  EXIT 


-A6; 


/*   TRAP  HANDLER  Routine  Ends   */ 


Interrupt  Level  6  (ABORT)  HANDLER   Routine  Below 


7 


Function:   ABORT  arranges  the  Stack  (for  compatibility  with  the  TRAP 

HANDLER  Routine),  and  branches  to  TRAPH. 
Modified 
Registers:  SP,  SR. 


*/ 

^BORT 


Called  by:  In  case  of  Level  6  Interrupt,  which  is  generated  to 
provide  ABORT. 


ORI  #MASK_7,SR 

ANDI.W  #$2FFF,SR 

ADDI.L  #2,2(SP) 

BRA  TRAPH 


DISABLE  INTERRUPTS. 
DISABLE  TRACE. 

COMPENSATE  FOR  SUBTRACTION. 
CONTINUE  WITH  TRAPH. 
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/*   Interrupt  Level  6  (ABORT)  HANDLER   Routine  Ends 


STACKFRAME   Routine  Below 


7 


Function:   STACKFRAME  just  arranges  the  stack.  The  address  of  this 
routine  is  placed  in  the  exception  vector  table  entries, 
for  unimplemented  exceptions.  The  purpose  is  to  prevent 
system  crash,  when  those  unimplemented  exceptions  occur. 

Modified 

Registers :  SP . 

Called  by:  In  case  of  unimplemented  exceptions. 


*/ 

STACKFRAME: AND I. W  #$2FFF, (SP) 

ANDI.W   #INTR_ENB, (SP) 
MOVE.L   #MAIN,2(SP) 
RTE 


/' 


STACKFRAME   Routine  Ends 


7 


DISABLE  TRACE. 
ENABLE  INTERRUPTS . 


GETLONG   Routine  Below 


7 


Function:   GETLONG  receives  a  longword,  which  is  sent  by  the  Macintosh. 

Modified 

Registers:  D3,  which  passes  the  received  longword  to  the  calling  routir, 


Called  by:  DOWNLOAD,  GO,  MEMWRITE,  MEMDISPLAY 


*/ 
GETLONG 


MOVEM.L  D0-D2/D4-D7/A0-A7,- (SP) ; 


MOVE.L  #8,D6 

JSR  RUART+ROM 

LSL.L  D6,D3 

JSR  RUART+ROM 

LSL.L  D6,D3 

JSR  RUART+ROM 

LSL.L  D6,D3 

JSR  RUART+ROM 

MOVEM.L  (SP)+,D0-D2/D4-D7/A0-A7; 

RTS  ; RETURN  TO  CALLER 


COUNTER  TO  SHIFT  LOW  BYTE  TO  HIGH  BYTE. 

GET  BYTE  #3  OF  LOAD  ADDRESS. 

SHIFT  IT  TO  ITS  PLACE. 

GET  BYTE  #2  OF  LOAD  ADDRESS. 


GET  BYTE  #1  OF  LOAD  ADDRESS 
MOVE  BYTE  #1  ITS  POSITION. 
GET  BYTE  #0  OF  LOAD  ADDRESS 


(  LS  BYTE 


GETLONG   Routine  Ends 


7 


SENDERROR   Routine  Below 


7 


Function:   SENDERROR  sends  a  lot  of  successive  zeros,  which  will 

cause  a  Frame  Error,  and  its  detection  on  the  Macintosh. 
So,  Macintosh  will  know  that  something  went  wrong  during 
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transmission  of  data  to  the  ECB 
Modified 
Registers:  D0,D1. 

Called  by:  RUART,  DOWNLOAD,  LDREGTBL . 


3ENDERR0R : MOVE . B   #BRKCOUNT,D0 


3TEP1: 

JSR 

SEND  ZER+DELAY1 

SUB.B 

#1,D0 

BNE.S 

STEP1 

MOVE.W 

#MAXINT,D0 

STEP 4  : 

MOVE.W 

#10, Dl 

3TEP2 : 

MOVE.L 

#7,D2 

STEP 3: 

DBF 

D2, STEP 3 

SUB.W 

#1,D1 

BNE.S 

STEP2 

SUB.W 

#1,D0 

BNE.S 

STEP4 

RTS 

THAT  MANY  TIMES  ZERO  BITS  WILL  BE  SENT 
SEND  A  ZERO. 


FOR  10  x  100  MICRO  SECOND  DELAY 


100  MICRO  SECOND  DELAY. 


f*      SENDERROR   Routine  Ends 


f*      SCNTS   Routine  Below   */ 


Function:   SCNTS  sends  the  most  updated  BreakCounts  to  the  Macintosh 

Modified 

Registers :  None . 


Called  by:  TRACEHANDLER,  TRAPHANDLER 


3CNTS: 
i'ORALL 


MOVEM.L  D3-D4/A6, -(SP) 

MOVE.L  #5,D4 

MOVE.L  #BRKCNT1+2,A6 

MOVE.B  (A6)+,D3 

JSR  ROM+SUART 

MOVE.B  (A6)+,D3 

JSR  ROM+SUART 

ADDA.L  #2,A6 

SUB.L  #1,D4 

BNE . S  FORALL 

MOVE.B  VIOL_FLAG,D3 

JSR  ROM+SUART 

MOVEM.L  (SP) +,D3-D4/A6 

RTS 


SEND  PRIVILAGE  VIOLATION  CODE. ($55  FOR  YES, 
$AA  FOR  NO) . 


'*   SCNTS   Routine  Ends   */ 
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/*   TRACEHANDLER   Routine  Below   */ 


Function : 

Modified 

Registers 


TRACEHANDLER  handles  the  Trace  case 
SP,  SR. 


Called  by:  In  case  of  Trace  (Trace  All  or  Trace  Branch) 
*/ 

TRACEHANDLER:  MOVEM.L  D3-D4/A5-A6 
MOVE.L   24(SP),D3 


,-(SP) ; 

[D3]  =  FAULTING  INSTRUCTION  ADDRESS 


MOVE.W 

#4,D4 

LEA 

BRKPT1, A6 

SEEK: 

CMP  .L 

(A6)+,D3 

DBEQ 

D4, SEEK 

CMP.W 

#0,D4 

BLT 

SRC  FAIL 

MATCH: 

SUB.L 

#4,A6 

MOVE.L 

(A6) ,A5 

MOVE.W 

(A5) , -18 (A6) 

MOVE.W 

#TRAP  15, (A5) 

SRC_FAIL : 

MOVEM . L 

(SP)+,D3-D4/A5- 

BTST.B 

#6,TBL  SR 

BNE.S 

TRC  BRA 

BTST.B 

#7,TBL  SR 

BNE.S 

TRC  ALL 

BRA 

NO  TRACE 

TRC  BRA: 

CMP  .B 

#1,FIRSTINST 

BEQ.S 

NOT  SHOW 

BSR 

UPDATETBL3 

BSR 

UPLOAD 

BSR 

SCNTS 

TST.B 

COP  ENB 

BEQ.S 

SKP  C5 

BSR 

UPDTFLTBL 

BSR 

FUPLOAD 

SKP_C5 : 

AND I .W 

#$2FFF,  (SP) 

BSET.B 

#5, (SP) 

MOVE.L 

#MAIN,2  (SP) 

BRA 

FINE 

NOT_SHOW : 

BCLR.B 

#7, (SP) 

BSET.B 

#6, (SP) 

BRA 

FINE 

TRC_ALL : 

BSR 

UPDATETBL3 

BSR 

UPLOAD 

BSR 

SCNTS 

TST.B 

COP  ENB 

BEQ.S 

SKP  C6 

BSR 

UPDTFLTBL 

BSR 

FUPLOAD 

SKP  C6: 

AND I .W 

#$2FFF,  (SP) 

A6; 


IF  USER  DOES  NOT  ENABLE  COPROCESSOR 


DISABLE  TRACE.  T1-T0  ->  NO  TRACE. 
WILL  BE  IN  SUPERVISOR  MODE  ON  EXIT 
WILL  RETURN  TO  MAIN  PROGRAM. 

SHOULD  BE  TRACE  ALL. 
T1-T0  ->  TRACE  ALL. 


SEND  THE  MOST  RECENT  BREAKCOUNTS . 
IF  USER  DOES  NOT  ENABLE  COPROCESSOR 


CLEAR  TRACE  BITS  NOT  TO  TRACE  OURSELVES 
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BSET.B 
MOVE.L 
BRA 
NO_TRACE :    BCLR . B 
FINE:  MOVE.B 

RTE 


#5,  (SP) 
#MAIN,2 (SP) 
FINE 
#7, (SP) 
#0,FIRSTINST 


/' 


TRACEHANDLER   Routine  Ends 


/ 


WILL  BE  IN  SUPERVISOR  MODE  ON  EXIT. 
WILL  RETURN  TO  MAIN  PROGRAM. 

SINCE  USER  WANTS  NO  TRACE,  CLEAR  Tl 
NOT  FIRST  INSTRUCTION  ANYMORE. 


/*   VIOLHANDLER   Routine  Below   */ 

Function:   VIOLHANDLER  handles  Privilage  Violations. 

Modified 

Registers :  SP . 

Called  by:  In  case  of  Privilage  Violation. 

*/ 

VIOLHANDLER: 

MOVE.B       #$55,VIOL_FLAG 
ADD.L         #2,2(SP) 


BRA 


TRAPH 


/*   VIOLHANDLER  Routine  Ends   */ 
/*   CALL  (Subroutine  Test)   Below 
^ALL:      WORD     TRAP_15 
/*   CALL  (Subroutine  Test)   Ends 
/*   MEMORY  ALLOCATION   */ 


COMPENSATE  FOR  THE  SUBTRACTION  FOR 
BREAKPOINTS  IN  TRAPH  ROUTINE. 
SINCE  BOTH  PRIVILEGE  VIOLATION  AND  THE 
TRAP_15  HAVE  THE  SAME  STACK  FRAME. 
PC  POINTS  TO  FAULTING  INSTRUCTION. 


rMPPTi 

LONG 

$0000 

rMPPT2 

LONG 

$0000 

rMPPT3 

LONG 

$0000 

FMPPT4 

LONG 

$0000 

rMPPT5 

LONG 

$0000 

3RKPT1 

LONG 

$0000 

3RKPT2 

LONG 

$0000 

3RKPT3 

LONG 

$0000 

BRKPT4 

LONG 

$0000 

3RKPT5 

:    LONG 

$0000 

3RKCNTI 

L :   LONG 

$0000 

THIS  WILL  BE  USED  FOR  SAVING  CODE  PARTS 
TAKEN  OUT  OF  CODE  FOR  TRAP  15  INSERTION. 
TMPPT1  WILL  HOLDTHE  PIECE  OF  CODE  TAKEN 
OUT  FOR  INSERTION  A  TRAP_15  CODE  FOR 
BREAKPOINT  #1  (BRKPT1) . 

THIS  WILL  BE  USED  FOR  STORING  THE 
ADDRESSES  AT  WHICH  THE  BREAKPOINT 
WILL  OCCUR. 

(CORRESPONDING  TO  5  DIFFERENT  BREAK_ 
POINTS) . 

/THE  BREAKPOINT  COUNTS  ASSOCIATED 
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BRKCNT2 

LONG 

$0000 

BRKCNT3 

LONG 

$0000 

BRKCNT4 

LONG 

$0000 

BRKCNT5 

LONG 

$0000 

SAVEAO : 

LONG 

$0000 

SAVED 0 : 

LONG 

$0000 

SAVESR: 

WORD 

$0000 

SAVECODI 

]  :  BYTE 

$00 

WITH  EACH  BRAEKPOINT  WILL  BE  STORED 
AT  THESE  BRKCNTx  (1  THRU  5) . 


A0  WILL  BE  SAVED  HERE  TEMPORARILY. 
DO  WILL  BE  SAVED  HERE  TEMPORARILY. 
THE  STATUS  REG.  WILL  BE  SAVED  HERE 
TEMP  STORAGE  FOR  MAC  CODE. 


FIRSTINST:BYTE  $00 

DISP_STEP:BYTE  $00 

VIOL_FLAG:BYTE  $00 

COP_ENB:   BYTE  $00 
LAST :       NOP 
END 


THIS  IS  FOR  FIRST  INSTRUCTION  WHICH 

WILL  BE  TRACED  FOR  SINGLE  STEP. 
WILL  THE  STEPS  BE  DISPLAYED  OR  NOT  ? 
PRIVILAGE  VIOLATION  FLAG. 
USER  WANTS  TO  USE  COPROCESSOR. 


/• 


ECB  ROM  Resident  Routines  End 
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APPENDIX  D:    SERIAL  COMMUNICATION  IN  SOFTWARE 


RECEIVING 

Level  four  interrupt  is  used  to  sense  the  RS232  input.  An  interrupt  is 
generated  when  a  logic  one  is  present  at  RS232  input .  But  before  this 
happens,  address  lines  A19  and  A17  have  to  be  made  high,  thus  enabling  the 
AND  gate  which  produces  the  level  four  interrupt . 

In  order  to  enable  this  interrupt,  first  the  address  lines  A17  and  A19 
are  forced  to  be  HIGH,  which  is  done  by  JMP  INTR_CHK+NEXTx,  in  RUART 
routine.  But,  since  some  amount  of  time  is  needed  to  acknowledge  an 
interrupt,  several  NOP  instructions  are  added  following  the  JMP 
INTR_CHK+NEXTx  instruction.  This  guarantees  that  previous  address  stay- 
unchanged  while  the  microprocessor  executes  these  NOPs .  By  doing  this,  the 
address  bits  A17  and  A19  are  kept  high  enough  for  the  interrupt  to  be 
acknowledged  by  the  CPU. 

How  incoming  bits  are  sensed  ? 

The  time  that  CPU  spends  by  executing  the  JMP  INTR_CHK+NEXTx,  and  the 
following  several  NOP  instructions  can  be  considered  as  a  sampling  window. 
If  an  interrupt  occurred  during  the  sampling  window,  program  execution  is 
continued  with  the  level  four  interrupt  handler  routine.  This  routine 
first  forces  the  address  lines  A19  and  A17  to  zero,  thus  disabling  the  AND 
gate  which  senses  the  RS232  line.  As  a  consequence,  further  interrupts  are 
disabled . 

Following  this  instruction,  routine  clears  register  Dl.  After  RTE, 
instruction  execution  continues  from  where  it  was  previously.  Then 
register  Dl,  which  is  set  to  one  before  receiving  each  incoming  bit,  is 
tested.  If  its  content  is  zero,  this  shows  that  a  level  four  interrupt  did 
occur,  which  means  a  logical  zero  is  received  from  RS232  input .  Otherwise, 
if  Dl  still  contains  a  one,  this  means  that  a  logical  one  is  received. 

How  incoming  bytes  are  received  ? 

The  receiving  routine,  RUART,  looping  all  the  time,  checks  for  the 
RS232  input.  RS232  line,  when  it  is  idle,  stays  at  high  voltage  level. 
After  sensing  the  start  bit,  eight  bits  are  received  and  shifted  in  to 
lower  byte  of  D3 .  The  reception  of  that  byte  ends  with  the  detection  of 
the  stop  bits.  If  a  frame  error  occurs  during  reception,  RS232  input  to 
the  Macintosh  is  kept  low  for  a  while  and  the  user  is  alerted. 
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More  detailed  information  can  be  obtained  from  Appendix  C.   (Source 
code  of  ecb.asm) . 


TRANSMITTING 

SUART  routine  sends  a  byte  which  is  in  D3 .  In  SUART,  first  by  th< 
instruction  JSR  SEND_ZER+DELAY1,  by  sending  a  zero  bit  the  start  bit  is 
sent.  Here,  DELAY1  subroutine  provides  104.7  microseconds  delay  between 
the  bits  to  be  transmitted.  Following  the  start  bit,  eight  bits  are  sent 
which  are  the  bits  in  the  lower  byte  of  D3 .  JSR  SEND_0NE+DELAY1  02 
SEND_ZER+DELAY1  is  used  in  order  to  send  a  ONE  or  a  ZERO  bit. 

More  detailed  information  can  be  obtained  from  Appendix  C  (Source  code 
of  ecb . asm) . 
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APPENDIX  E:    IMPLEMENTATION  OF  SOFTWARE  ABORT 

ABORT 

Abort  is  a  very  beneficial  option  to  the  user.  About  its 
implementation  on  the  ECB :  when  the  Abort  button  is  pressed,  a  level  six 
autovectored  interrupt  is  generated. 

During  the  first  design  phas^  of  the  debugger  it  was  intended  to 
support  the  Abort  in  software.  If  a  long  enough  Break  could  be  sent  to  the 
ECB,  then  this  could  be  interpreted  as  a  user  intention  for  Abort.  This 
idea  did  not  work.  Because  when  the  user  program  enters  in  to  an  endless 
loop  or  just  gets  out  of  control  (these  two  situations  can  occur  right 
after  Go  menu) ,  since  the  Macintosh  will  still  be  waiting  for  information 
from  the  ECB  (which  will  never  come)  ,  the  Macintosh  will  be  locked  and 
there  is  no  way  to  get  out  of  Go  menu  and  send  a  Break  to  the  ECB.  For 
this  reason,  the  Abort  option  was  decided  to  be  implemented  in  hardware. 

At  this  point,  the  design  idea  was  to  make  this  interrupt,  a  level 
seven,  non-maskable  interrupt .  But  later  it  was  noticed  that  it  would  not 
work.  Because  pressing  the  Abort  button  once,  caused  many  interrupts,  each 
non-maskable.  To  overcome  this  problem,  using  a  debouncing  circuit  could 
be  a  choice,  but  the  tradeoff  was  more  hardware.  For  this  reason  a  level 
six  interrupt  was  found  to  be  appropriate.  In  this  way,  when  the  Abort 
button  is  pressed  once,  it  still  creates  many  level  six  interrupts,  but 
only  the  first  one  is  processed  and  the  rest  is  ignored.  At  the  entry  on 
the  Abort  handler  routine,  interrupts  are  disabled,  so  the  interrupts 
caused  by  the  bouncing  of  the  Abort  button  is  ignored. 
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APPENDIX  F:    OPERATING  INSTRUCTIONS 


INSTRUCTIONS 

1-  With  Macintosh  off,  insert  Disk  "C  Compiler"  into  Floppy  Disk  Slot . 

2-  Turn  on  Macintosh.  Macsbug  is  installed,  Lightspeed  C  is  started 
immediately . 

3-  Now,  you  may  select  the  project.  Double-Click  the  project  file:  Tutor20 
pi.  (Double-Click  Tutor2  0  pi  means;  move  the  mouse  so  the  arrow  for  the 
mouse  is  on  the  line  with  the  name  Tutor20  pi,  and  click  the  button  on 
top  of  the  mouse,  twice,  quickly.) 

On  the  upper  right  corner  of  the  screen,  you  can  see   the  files,  contain! 
in  this  project. 

4-  In  order  to  be  able  to  create  your  assembly  language  program, 
double-click  on  the  file  "test.c". 

5-  Now,  you  may  start  editing  your  program.  But,  it  is  advisable  to  make 
test.c  the  only  file  you  work  on,  saving  other  files,  if  they  exist, 
using  other  file  names.  To  save  a  copy  of  test.c  as  backup . c  and  then  be 
able  to  modify  test.c,  drag  File  to  Save  A  Copy  As  (Drag  File  to  Save  A 
Copy  As...  means,  using  the  mouse,  click  button  down  on  the  "File"  menu, 
hold  the  button  down  as  mouse  is  moved  down  to  "Save  A  Copy  As . . . "  and 
release  the  mouse.) 

Type  the  name  of  the  new  file  (Actually,  a  copy  of  test.c),  backup. c 
and  hit  carriage  return. 

6-  Do  not  alter  any  of  the  lines,  unless  told  otherwise.  User  program  area 
is  clearly  shown  in  test.c.  User  should  type  his  program  between  the 
lines  "***  USER  PROGRAM  ***"  and  "***  USER  PROGRAM  ENDS  ***" . 

7-  Labels  begin  with  a  "@"  sign,  followed  by  digits.  (You  are  not  allowed  t 
use  labels  @1,  @2,  @3,  which  are  already  defined  and  used  by  test.c 
program. ) 

Hexadecimal  numbers  begin  with  a  "Ox"  (Zero  Eks) ,  followed  by  digits  or 
a-f  or  A-F . 

Variables  (e.g.,  i)  are  declared  in  C  above  the  line  "asm{",  (e.g.,  int 
and  are  accessed  using  index  addressing  with  address  register  A6  and  a 
negative  offset. 

8-  Drag  project  to  Run.  Test.c  will  be  compiled  and  the  debugger  will  run. 
You  should  see  Apple,  File,  Functions  menus  on  the  screen. 

9-  If  you  want  to  utilize  MC68881  Coprocessor,  or  if  you  want  to  have  a 
hard  copy  of  what  is  going  to  be  displayed  on  the  screen,  or  some  other 
options;  pull  down  Functions  menu  and  click  the  mouse  on  Options  menu. 
Here,  you  will  see  a  button  corresponding  to  each  option.  You  can  have 
any  option  "ON"  by  just  clicking  it  (When  it  is  darkened,  that  means  you 
have  that  option,  or  vice  versa) .  Click  "Quit"  to  get  out  of  that  menu. 
If  you  want  to  use  Coprocessor  instructions  in  your  program,  you  have  to 


162 


have  the  "Coprocessor"  option  at  this  step,  before  Downloading.  You  are 
not  allowed  to  first  Download  and  then  select  "Coprocessor"  option.  This 
will  lock  the  system. 

10-Pull  down  Functions  menu  and  click  the  mouse  on  Download  option.  This 

will  download  your  program  to  the  ECB .  Your  program  will  be  loaded  in  RAM 
starting  at  1000  (Hexadecimal)  address. 

11-Now  you  need  to  select  "Go"  menu.  The  default  Program  Counter  value  is 
1000  Hex.  You  may  change  this  address  if  you  want  to. 

A  very  important  point  needs  to  be  explained.  That  is,  if  you  are  going 
to  select  "Goto"  option  within  the  "Go"  menu,  your  program  has  to  end 
with  a  TRAP  #15  instruction,  or  if  you're  going  to  select  "Call"  option 
an  RTS  instruction  should  be  at  the  end  of  your  program. 


WHAT  CAN  YOU  DO  IN  A  PARTICULAR  MENU  ? 

When  you  pull  down  the  Functions  menu,  you  will  see  the  following 
selections . 
01-Download 
02-Go 

03-Registers 
04-Floating  Regs 
05-Memory  Display 
06-Memory  Write 
07-Options 
08-Previous  Screen 
09-Clear  Screen 


10-Help 


DOWNLOAD 


Downloads  the  user  program  from  the  Macintosh  to  the  ECB,  at  a  Baud 
rate  of  9600.  After  that,  the  current  register  values,  whatever  they  were, 
are  uploaded  from  the  ECB. 

If  Coprocessor  will  be  used,  that  option  should  be  selected  in  the  Options 
menu,  before  clicking  Download. 


GO 


A-  GoTo/Call: 

There  are  two  types  of  program  execution,  as  far  as  the  procedure  is 
concerned.  They  are: 

1-  Goto 

2-  Call 
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The  user  as  to  end  his  program  either  with  RTS  or  with  TRAP  #15,  depenci 
on  the  situation.  This  was  described  above,  at  step  11.  The  purpose  of 
"Call"  is  that,  with  this  choice,  the  user  can  easily  test  and 
run  his  subroutines. 

B-  Return  to: 

User  has  choices  about  which  menu  to  go  after  that  part  of  execution 
of  his  program,  the  default  return  menu  is  "No  Menu"  where  no  menu 
displayed,  instead  the  register  values,  and  the  instruction  following 
the  last  executed  instruction  in  a  disassembled  form  are  displayed. 
Clicking  on  "Return  to",  "Registers  Menu"  is  selected,  which  simply 
displays  the  "Register  Menu" . 

Clicking  on  "Return  to"  a  second  time,  "Go  Menu"  is  selected,  which 
makes  the  same  menu  appear  again. 

C-  Breakpoints  : 

User  can  set,  upto  five  breakpoints.  The  "Clear  All"  option,  clears 
all  the  breakpoints.  Hitting  the  tab,  the  darkened  spot  passes  through 
the  breakcounts  first,  where  user  can  enter  the  count  he  or  she  wants. 
This  number  can  be  in  the  range  (0..9999) .  After  Breakcounts,  Breakpoi 
addresses  can  be  entered,  just  by  typing  the  desired  address  and  hitti 
the  tab.  If  no  breakcount  was  entered  for  this  breakpoint  before,  its 
value  is  set  to  one,  automatically. 

D-  Display  Steps : 

If  this  option  is  made  "ON",  just  by  clicking  it,  every  step  taken 
during  the  program  execution  on  the  ECB  is  displayed  on  the  Macintosh 
This  situation  may  be  useful  when  the  user  sets  any  Breakcount  to  a  vali 
bigger  than  one,  and  still  wants  to  see  the  outcome  of  every  single  ste 
If  this  option  were  not  used,  the  information  would  be  displayed  after  t> 
Breakpoint  address  is  reached  as  many  as  Breakcount  times. 


E-  Cancel: 

Anything  done  during  this  Go  Menu  session  is  ignored. 


F-  Go: 

A  final  step  in  Go  Menu.  Clicking  "Go"  will  download  the  most  updated 
register  values,  breakpoint  information,  and  then  the  program  execution 
will  start . 


REGISTERS 


When  selected  displays  MC68020  register  information,  interrupt  leve. 
and  condition  codes. 


A-  Registers : 

All  the  data,  address  and  control  registers  are  displayed.  Any  of 
these  registers  can  be  modified  just  by  entering  the  desired  content  and 
hitting  the  tab. 
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B-  Clear  All: 

When  clicked,  clears  all  data  registers,  and  all  address  registers 
except  A7,  which  is  the  stack  pointer. 

C-  Active  Stack  Pointer: 

A7  entry  shows  the  active  stack  pointer.  Default  is  "User  Stack  Pointer' 

Clicking  A7  once,  switches  to  "Interrupt  Stack  Pointer".  Clicking  A7  once 
again,  switches  to  "Supervisor  Stack  Pointer". 

D-  Condition  Codes: 

Displayed  as  radio  buttons,  where  darkened  one  means  that  bit  is  set. 
User  can  change  condition  code  values  either  by  clicking  it,  or  by 
modifying  the  Status  Register. 

E-  Go: 

When  clicked,  does  the  same  function  as  what  it  would  do  in  "Go"  menu. 
But  there  is  a  condition.  The  Registers  menu  should  have  been  called  by 
"Go"  menu,  which  means  that,  in  Go  menu  "Return  to"  field  was  "Registers 
menu"  before  the  last  clicking  of  Go.  This  option  is  provided  just  for 
presenting  some  ease  to  user.  Because  this  way  he  does  not  need  to  go 
through  "Go  menu".  If  the  above  condition  does  not  hold,  clicking 
"Go"  does  not  mean  anything,  nothing  happens . 

F-  Interrupt  Level: 

Every  clicking,  increases  the  interrupt  level  by  one.  This  field  can 
also  be  changed  by  modifying  Status  Register.  Since  it  will  crash  the 
system,  the  user  is  not  allowed  to  set  the  Interrupt  Level  to  a  value 
greater  than  three.  (Level  four  interrupt  is  used  for  establishing  serial 
communication.  If  a  higher  level  interrupt  were  allowed  this  could  crash 
serial  communication  mechanism) . 

G-  Quit : 

Simply  quits  the  Registers  menu. 

FLOATING  REGS 


When  selected,  MC68881  Floating  Point  Register  information,  FPCR 
(Floating  Point  Control  Register)  ,  FPSR  (Floating  Point  Status  Register)  , 
FPIAR  (Floating  Point  Instruction  Address  Register)  ,  condition  codes, 
Exception  Status/Enable  byte  are  displayed.  This  menu  can  be  selected  only 
when  Coprocessor  option  is  turned  On  in  the  Options  menu. 
Eight  Floating  Point  Registers  are  displayed,  each  consisting  of  four 
fields.  These  fields  are:  Exponent,  sign  of  exponent,  mantissa,  sign  of 
mantissa.  Each  field  is  modified  by  the  user  separately.  User  may  modify 
FPCR,  FPSR,  FPIAR,  by  typing  the  desired  value  and  hitting  the  tab.  User 
may  also  modify  condition  codes,  or  Exception  Status/Enable  bits  by  just 
clicking  them. 
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A-  Quit : 

Simply  quits  the  Floating  Regs  menu. 

MEMORY  DISPLAY 

The  maximum  number  of  bytes  to  be  displayed  at  once  is  500. 

A-  From: 

The  beginning  address  of  memory  display  needs  to  be  entered  here, 
by  just  typing  that  address  and  hitting  the  tab. 

B-  To: 

The  ending  address  of  memory  display  needs  to  be  entered  here, 
by  just  typing  that  address  and  hitting  the  tab. 

C-  Size: 

Size  is  the  number  of  bytes  to  displayed,  which  is  automatically 
calculated  and  displayed  (size=f rom-to) .  Entering  any  one  of  from 
or  "to",  and  "size"  will  work  as  well. 

D-  Disassemble: 

The  memory  is  displayed  in  a  disassembled  format,  one  instruction  per 
line . 

E-  Cancel: 

Simply  ignores  that  Memory  Display  session. 

F-  Display: 

Clicking  Display,  causes  the  display  of  the  desired  memory  locations. 

MEMORY  WRITE 


When  selected,  user  is  able  to  modify  any  memory  location.  That 
memory  location  can  be  Byte,  Word  (two  bytes) ,  or  Longword  (four 
bytes)  in  length.  In  case  Increment /Decrement  option  is  selected, 
"Location"  is  Incremented/Decremented  by  one,  two,  or  four,  according  to 
the  data  length  being  modified. 

When  "No  change"  is  selected,  "Location"  is  not  modified,  so  following 
writes  occur  to  the  same  memory  location. 

A-  Location: 

The  address  of  the  memory  location  to  be  modified.  User  can  enter  the 
address  by  just  typing  it  and  then  hitting  the  tab. 

B-  Contents : 

Here,  user  has  to  type  the  new  content  of  that  memory  location.  The 
memory  write  is  done  only,  when  the  user  hits  the  tab. 
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C-  Verify: 

When  selected,  a  memory  write  to  that  location  is  done,  following 
that,  a  memory  read  is  performed  from  the  same  memory  location.  This 
value  is  sent  back  to  the  Macintosh,  where  it  is  compared  against  the 
desired  content,  by  the  debugger.  If  an  error  is  detected,  user  is  alerted 

D-  Quit: 

Simply  quits  the  Memory  Write  menu. 

OPTIONS 


When  this  menu  is  selected  four  options  will  be  displayed.  Clicking 
any  of  these  options,  will  toggle  it  (ie.,  turning  it  ON  and  OFF) .  The 
following  describes  what  is  done  when  any  particular  option  is  selected. 

A-  Hardcopy: 

Whatever  seen  on  the  screen  is  also  sent  to  a  serial  printer.  This 
option  might  be  useful  especially  when  user  dumps  large  number  of  bytes 
of  memory. 

B-  Coprocessor: 

If  user  wants  to  access  Coprocessor  this  option  should  be  selected 
before  Downloading.  Turning  this  option  on  enables  the  "Floating  Regs" 
menu,  which  would  not  be  accessible  by  the  user,  otherwise. 

C-  Refresh  Screen : 

Following  a  Quit  from  any  menu,  instead  of  displaying  a  blank  screen, 
a  screenful  information  is  displayed.  This  information  is  obtained  from  a 
circular  queue,  which  contains  the  last  displays  on  the  screen. 

D-  Experienced: 

If  the  user  is  not  experienced  he  is  not  allowed  to  change  interrupt 
levels  . 

PREVIOUS  SCREEN 


When  selected,  the  last  screenful  information  is  sent  to  the  serial 
printer.  In  a  sense,  it  is  like  a  hardcopy  of  Refresh  Screen. 

CLEAR  SCREEN 

When  selected,  clears  the  screen. 

HELP 

Displays  help  information. 
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APPENDIX  G:    SAMPLE  ASSEMBLY  LANGUAGE  PROGRAMS 


A-  Sample  Program  #1 


The  following  program,  copies  the  elements  of  ARRAY_A  to  ARRAY_B 
Each  element  is  one  byte  long. 


i-  Source  Code 


/     **  Sample  Program  #1  ** 

/Label   Opcode    Operand 
/Field  Field    Field 


Comment 
Field 


ARRAYA :  BLKB      5 
ARRAYB :  BLKB      5 


ASSUME  ARRAY  A  HAS  SOME  VALUES 


LOOP 


DONE 


LEA  ARRAYA,  AO 

LEA  ARRAYB,  Al 

MOVE.B  #5,  DO 

MOVE.B  (AO) +, (Al) + 

SUB.B  #1,D0 

CMP.B  #0,D0 

BNE . S  LOOP 


/DEFINE  ARRAY_A 
/DEFINE  ARRAY  B 


AO  POINTS  TO  ARRAY_A 

Al  POINTS  TO  ARRAY_B 

FIVE  ELEMENTS  TO  BE  COPIED 

COPY  ELEMENT  OF  A  TO  ELEMENT  OF  B 

DECREMENT  THE  COUNTER 

FIVE  OF  THEM  COPIED  ?.. 

NO...  COPY  ONE  MORE. 
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ii-  Listing 


2500  A.D.  68000  Macro  Assembler  -  Version  4.03a 


Input   Filename 
Output  Filename 


sample 1 . asm 
sample 1 . ob j 


**  Sample  Program  #1  ** 

; Label   Opcode    Operand   Comment 
/Field   Field    Field     Field 


00000000 
00000005 


ARRAYA 
ARRAYB 


BLKB 
BLKB 


; DEFINE  ARRAY_A 
/DEFINE  ARRAY  B 


/ASSUME  ARRAY  A  HAS  SOME  VALUES 


0000000A 

41F9 

0000 

0000 

LEA 

ARRAYA,  A0 

00000010 

43F9 

0000 

0005 

LEA 

ARRAYB, Al 

00000016 

103C 

0005 

MOVE . B 

#5, DO 

0000001A 

12D8 

LOOP  : 

MOVE.B 

(A0)+,  (Al)  + 

0000001C 

5300 

SUB.B 

#1,D0 

0000001E 

ocoo 

0000 

CMP.B 

#0,D0 

00000022 

66F6 

BNE.S 

LOOP 

00000024 

DONE: 

;A0  POINTS  TO  ARRAY_A 
/Al  POINTS  TO  ARRAY_B 

/FIVE  ELEMENTS  TO  BE 
COPIED 

COPY  ELEMENT  OF  A  TO 

ELEMENT  OF  B 

FIVE  OF  THEM  COPIED  ? 

NO. .  COPY  ONE  MORE. 


Lines  Assembled  :   23 


Assembly  Errors  :   0 
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B.   Sample  Program  #2 


Source  Code 


/**  Sample2.asm  **/ 

The  following  program  is  to  give  an  idea  about  the  usage 
of  Coprocessor  commands .  Here  the  instructions  are  given 
in  their  open  form,  the  mnemonics  of  these  commands  are 
given  in  the  comment  field. 


DC.W 
DC.W 


$F200 
$12B6 


FSINCOS.X  FP4,FP5,FP6 

FP4  <-  X  (Prior  to  execution) 

FP5  <-  SINE(X) , 

FP6  <-  COSINE (X) 


DC.W 

$F23C 

DC.W 

$4300 

DC.W 

$0000 

DC.W 

$0006 

MOVE.L 

#2,D6 

DC.W 

$F206 

DC.W 

$4322 

FMOVE.L  #6,FP6 


FADD.L    D6,FP6 
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